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Noviembre es un buen mes para todos los aficionados а la informáti- 
са. Se celebra en Madrid el SIMO, donde tienen cabida todo tipo de 
ordenadores y donde estaremos como espectadores y como expositores 
a fin de informarles en torno al mundo del Spectrum, al igual que hici- 
mos el mes pasado en Barcelona con motivo del SONIMAG y del que 
les damos buena cuenta en este número. No obstante la mayor nove- 
dad llegaría antes de finalizar esta feria, con la presentación del 5рес- 
trum plus, una nueva versión del Spectrum con teclado profesional, del 
que les daremos más información en el próximo número. 

Pero noviembre es también un mes duro para cuantos trabajan sin 
descanso para poder tener listos sus programas para el SIMO en unos 
casos y para navidades en otros. El resultado a buen seguro que será 
muy positivo para todos los usuarios del Spectrum que podrán así dis- 
poner de una mayor oferta. 


4 NOVEDADES SONIMAG 84. Lo último en software y 
hardware, preludio del SIMO de este mes. 

9 CODIGO MAQUINA PARA AMPLIAR EL BASIC. 
Tres nuevas instrucciones que potencian el lenguaje BA- 
SIC. 

14 SOFTWARE PARA ORDENAR EL SOFTWARE. Pro- 
fundice en la programación y ordene su archivo de progra- 
mas. 

20 VU-3D: GRAFICOS EN TRES DIMENSIONES. Ex- 
ploramos las capacidades gráficas de este programa. 

26 LLEGO EL FORTH. Un lenguaje que entra “pisando 
fuerte”. 

32 BASE DE DATOS EN MICRODRIVE. Archivos de da- 
tos en cassette y microdrive. 

36 CUANDO AL EDITOR LE CONQUISTO LA IMPRE- 
SORA. Escriba todo lo que quiera, ¡pero con un buen edi- 
tor! 

43 PREGUNTAS Y RESPUESTAS, Nuestros lectores se 
las saben todas... bueno, casi todas. 

44 PROGRAMAS. El famoso frogger para que todos puedan 
saltar, ide alegría! Desvelado el misterio del boxeador 
que no quería pelear. 

58, 66 GUSANEZ. Nuestra traviesa mascota ataca de nue- 
vo. 
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_NOVEDADES 


S en el campo del sofware 
donde las novedades se hi- 
cieron más patentes, pero 
tampoco faltaron periféri- 
cos de interés e incluso el nuevo 
QL de la casa Sinclair, que por pri. 
mera vez caía en las manos del pü- 


Spinnaker: programas educativos y divertidos. 


blico español. Pero vayamos por 
partes a analizar las distintas nove- 
dades. 

Decíamos que el software fue lo 
más llamativo. Pero no seríamos 
justos si no destacásemos la gran 
labor en materia de software edu- 


Un año más del 1 al 7 de 
octubre se celebró en 
Barcelona el salón de la 
imagen, sonido y 
electrónica, conocido por el 
Sonimag. Junto a tres 
grandes pabellones 
dedicados a los clásicos 
audio-visuales, con un 
llamativo retroceso en 
cuanto a la presencia de los 
radioaficionados, se 
encontraba un pequeño y 
acogedor pabellón dedicado 
al mundo de la informática, 
especialmente en cuanto a 
los ordenadores domésticos 
se refiere. Un buen lugar 
para grandes y chicos, pero 
especialmente para estos 
últimos, para quienes los 
distintos expositores 
posibilitaron el libro uso de 
los ordenadores. 


cativo que vienen desarrollando 
activas casas de software catalanas, 
la mayoría de ellas de reciente apa- 
rición en el mercado. Una de estas 
empresas es Idealogic, quienes han 
adaptado el sofiware de las multi- 
nacionales americanas Spinnaker 
y Fisher Price a los ordenadores 


El QL ya estaba al alcance de todos, aunque no 


todos parecían entenderle.... 


SONIIVIAG "84. 


Un sofisticado interface puede permitir al Spectrum 
la toma de datos externos 

Apple, Commodore y Spectrum. 
Los distintos programas presenta- 
dos van dirigidos al público infan- 
til con edades entre los 8 y los 14 
años. 


Con carácter igualmente educa- 
tivo estaba el programa BASIC 
para las primeras lecciones de este 
lenguaje. Y el programa Calc, uno 
de los más completos que hemos 
visto en el campo de las matemáti- 
cas. Profesor Dietético era otra de 


Verbot: un pequeño robot que obedece a sus 
instrucciones verbales. 


Dos libros 
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ás, preludio de la avalancha prevista 


para las próximas navidades. 


las novedades especialmente reco- 
mendable para los que deseen vigi- 
lar más de cerca su alimentación. 
Estos tres programas eran presen- 
tados por Software Centre, empre- 
sa que aglutina a un nutrido núme- 
ro de jóvenes programadores. Esta 
misma empresa presentaba tam- 
bién dos paquetes de programas 
para el microdrive: Fichero-- 
agenda, típico archivo de datos, y 
Tecno-art para la realización de 
dibujos con las facilidades de al- 


macenamiento rápido en micro- 
drive. 

Tampoco faltaban los famosos 
arcade games o juegos de aventu- 
ras, en su mayoría traidos de las 
listas de éxito del mercado inglés. 
Este no era el caso del Mad cars 
realizado por Ventamatic, carrera 
de coches a través de un inmenso 
recorrido sobre campo a través, de- 
siertos, puentes sobre el mar e in- 
cluso carreteras fantasmas. Tam- 
bién la casa Software Centre apro- 


Profesor dietético. Una forma distinta de 


controlar su dieta. 


vechaba la ocasión para presentar 
el programa Juegos olímpicos. que 
tenian la particularidad de utilizar 
un sintetizador de voz. Desgracia- 
damente habremos de esperar al- 
gunas semanas para su comerciali- 
zación. 

En el campo de las aplicaciones 
profesionales Ventamatic presentó 
las mayores novedades: Context 
V.6 es la versión sexta del Context 
basado en la originaria idea del 
Tassword que comentábamos en 
el nümero anterior. Otra de las 
aplicaciones «serias» fue el SITI o 
Sistema Integrado de Tratamiento 
de la Información. Base de datos 
de 10 Kbytes de memoria en códi- 
go máquina que permite la realiza- 
ción de cálculos complejos entre 
los distintos campos de una ficha. 
Igualmente realizado por los pro- 
gramadores de esta conocida fir- 
ma. 


Por fin llegó la esperada unidad de discos de la 
mano de Sinclair. 


“Хо busque los cables... este joystick funciona por 
rayos infrarrojos. 


Cassette especial para ordenadores de fácil 
manejo. 


Las novedades hardware más 
importantes vendrían de la mano 
de Investrónica. Por primera vez se 
podía «tocar» el QL y por primera 
vez se escuchaban fechas: ipara úl- 
timos de noviembre! Mucho nos 
tememos que al igual que ocurrió 
en Inglaterra, la: espera será un 
poco más larga, pero por el mo- 
mento se pudo ver de cerca el con- + 
trovertido ordenador y los cuatro 
paquetes de aplicaciones que lo 
acompafian. Pero no estaba por 
ello olvidado nuestro querido 
Spectrum. Junto a él aparecían 
unas unidades de discos fabricados 
por Sinclair en Portugal, de apa- 
riencia bastante robusta, sobre las 
que nadie se atrevía aventurar ргс- 
cios o fechas de aparición. Por fin 
pudimos ver una auténtica unidad 
de discos para el Spectrum de 220 


Comcon, Joystick programable para cuatro posiciones. 
Tan sencillo que parece imposible que nadie lo inventase antes. 
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El rancho. Programas educativos para los más 
pequeños 


Kbytes por disco, (160 por cara). 
Junto a ellos aparecía «un amigo 
muy personal» según rezaba la pu- 
blicidad sobre Verbot, el robot 
apenas superior a la altura de un 
balón de futbol que obedece a la 
voz. 


No menos espectacular resulta- 
ba el joystick por infrarrojos pre- 
sentado por Sitelsa que también 
presentaba el cassette Euromatic, 
especial para ordenadores y el co- 
nocido Sweet Talker, una modali- 
dad de sintetizador de voz. El cas- 
sette permite la lectura/grabación 
sin desconectar las conexiones 
EAR/MIC, incorporando un led 
indicativo de conexión a la red y 
otro indicativo de transferencia de 
datos. 


Tics, empresa especializada en 


Stands especiales para que 
todos pudiesen «ver y tocan». 
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CONUERS ION DE SISTEMAS DE MEDIDA 
1 METROS A РІ 


Matemáticas para todos con el programa Cale. 


el campo de la medición, presentó 
un controlador que permitía la 
toma de datos externos a través del 
bus de expansión (en el próximo 
número de TODOSPECTRUM su 
inventor nos explicará en detalle 
este dispositivo). 


Tampoco faltó la atractiva ta- 
bleta digitalizadora Grafpad im- 
portada por. Ventamatic, junto con 
un curioso joystick de fácil progra- 
mación para cualquier tecla y de 
un diseño un tanto arcaico: el 
Comcon. (Basta colocar las cone- 
xiones en las teclas que utiliza el 
juego para poder utilizar el joys- 
tick). Pensando en los amantes de 
la música, presentaban también el 
interface Midi para instrumentos 
musicales electrónicos, utilizado 
corrientemente para la conexión a 


Los chicos fueron los 
grandes protagonistas. 


sintetizadores y cajas de ritmos 
programable. 


En el capítulo bibliográfico la 
firma Ventamatic presentó dos li- 
bros con dos títulos sugestivos: 
«Los superjuegos del ZX-Spec- 
trum 16K/48K, y ZX-Interface 
1 y ZX-Microdrives: Qué son, 


para qué sirven, y cómo se usan» _ 


Finalmente indicar que cuantos 
hacemos TODOSPECTRUM, 
también estuvimos presentes, al 
igual que estaremos en el SIMO, 
en el presente mes de noviembre 
en Madrid, a fin de daros toda la 
información que necesitéis y, por 
supuesto, para conocernos mejor. 
Para aquellos que no podáis asistir 
a esta feria, os daremos cumplida 
información en el nümero del pró- 
ximo mes. 
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TRES NUEVOS COMANDOS 


CON CODIGO MAQUINA 


asic 
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En este artículo veremos cómo añadir al Basic tres nuevas instrucciones: 

— SCREENS n... que resulta equivalente a las siguientes instrucciones 
Basic: BORDER п: PAPER n: INK 9 : FLASH 0 : BRIGHT 0: CLS. 

— INVERSE... que intercambia los colores de INK y PAPER en la zona de 
atributos de la pantalla. 
— BIN... que ahora significa “Bit INverse” e invierte la pantalla normal. 


1 INTERFACE I, aparte de 
permitir un almacenamien- 
to rápido de información 


E 


ШЕШ сп microdrives, la conexión 
vía RS232 y el trabajo en 
red (network), también nos ofrece 


la oculta posibilidad de ampliar el 
BASIC con nuevas instrucciones. 
El interface permite saltar a una 
subrutina escrita por el usuario 
cuando se comete un error sintác- 
tico. Esto significa que se puede 


llamar subrutinas en lenguaje má- 
quina cambiando la sintaxis de la 
mayoria de las instrucciones. 
Cuando se comete un error sin- 
táctico el control se transfiere a la 
ROM del interface, que llamare- 


mos а partir de ahora "shadow 
ROM" (shadow - sombra), que se 
encarga de comprobar si el error 
está producido por una instrucción 
del interface. De ser así, esta se eje- 
cuta sin más complicaciones. En 
caso contrario, se ejecuta un salto a 
la dirección que indica la variable 
del sistema VECTOR. 


Esta variable normalmente tiene 
el valor+01FO (+ significa hexade- 
cimal) que produce la generación 
del mensaje de syntax error. Pero 
podemos cambiar este valor para 
que indique el comienzo de nues- 
tra subrutina situada еп RAM. 


La subrutina RAM debe tener 
dos módulos diferenciados, uno 
para comprobar la sintaxis de la 
instrucción modificada y otra para 
ejecutar realmente dicha instruc- 
ción. Al escribir esta parte del pro- 
grama debe tenerse en cuenta dos 
Cosas: 


REM 33 ЖЖЖ EE 
AMPLIADO pai 
INTERFACE 


1 
2 REM * BASIC 


— Se ha producido el paginado 
de la ROM, por tanto los RST tie- 
nen otro efecto. 

— No se produce la lectura de 
teclado ni el incremento de frames. 


* OF 
1 + i 


ni FAF 


ӨН OrCLS"'"*** 


) PRINT 


El listado realizado en lenguaje 
máquina añade y ejecuta las ins- 
trucciones arriba descritas. Está 
realizado con el ensamblador 
GENS 3M de HISOFT. 


En la primera parte, se crean las 
variables del sistema mediante el 
hook code (código gancho, o códi- 
go de transferencia) 431 y a conti- 
nuación se da el valor del comien- 
20 de nuestra subrutina a la varia- 
ble VECTOR, acto seguido se de- 
vuelve el control al BASIC. 


Cada vez que ocurra un error 
sintáctico, será ejecutada nuestra 
subrutina. En el punto de entrada 
de la subrutina el acumulador con- 
tendrá el código del primer carác- 
ler de la instrucción menos 206. 
Lo primero que haremos será com- 
probar si pertenece a alguna de las 
instrucciones que hemos añadido. 
De ser así pasaremos el control al 
analizador sintáctico principal co- 
rrespondiente. En caso contrario 


МФ п": F 
СНЕФ 85s: NEXT 


BORD 


о: 


egiva 
9: BRIGHT 


7 REM 8e baja el RAMTOF 140 PRINT TAB 4:"INVERSE" 
10 CLEAR 59999 1 TO 7: PRINT CHR$ Bis: 
0. de 5С=0: REM suma de Н NT (МЕН 1r" trad 
comprobacion FRINT " valores d 
ZO LET БТАЕТ=6Е4: REM en la zona de 
direccion de comienzo ЕИ 
Юю CLS : PRINT "ESPERA, toy INT TAR 4:"BIN":: FOR | 
pokeando el codigo" 5: PRINT CHR$ 8:: NEXT I: PR 


50 FOR ¡=START 


i.n 


90 504212627 THEN OLS : PR i90 
INT "E R en la suma de comprob 199 REM 
acion": PRINT : PRINT "LO, SIENTO 
Шат ТІ i 
100 REM Escribe la nueva 3 a 
sintaxis 210 PRINT 
110 CLS : PRINT "El BASIC tiene INT TAB 


ahora las 
. vas instrucciones:" 


ТО START+11%9 


siguientes пие 


INT OVER 


n de los 


alvar 


170 PRINT "Invierte la situacio 


pixels de pantalla" 


£ PRINT #1; "Pulsa cualquier 
tecla para 
PAUSE 1: 


continuar," 
PAUSE o 


Rutina de salvamento 


del codigo 
PRINT "En que si 
el codigo 
AB 10:"1-CASETE": 
-MICROÜDRIVE": 


РА 
PRINT 


generaremos un mensaje de syntax 
error saltando a la posición + 010 
de la shadow ROM. 


Supongamos que el carácter es 
el token de SCREENS y que por 
tanto hemos saltado a la línea 300 
para realizar el análisis sintáctico 
principal de la instrucción. 


Hacemos llamadas a las subruti- 
nas de análisis de la ROM princi- 
pal utilizando la instrucción RST 
+10 seguida de la dirección de la 
subrutina que queremos ejecutar 
(conviene hacer notar que hemos 
paginado a la shadow ROM y que 
por tanto RST +10 no significa es- 
cribir un carácter). Hacemos lla- 
madas a NEXTCHR (+0020) para 
incrementar el puntero de carácter 
y a NUMEX (%1С82) para evaluar 
unaexpresión numérica. 


Esta ültima subrutina comprue- 
ba la sintaxis de una expresión nu- 
mérica y en el momento de la eje- 


cución la calcula y sitüa su resulta- 
do en el stack (pila) del calculador. 
También se efectüa una llamada a 
la subrutina de la shadow ROM 
STEND (ғ05В7) para comprobar 
si se ha alcanzado el final de la ins- 
trucción. 


Los otros dos analizadores sin- 
tácticos principales actüan de 
igual manera. Las rutinas son las 
mismas, y para ejecutar cualquier 
otra porción de código haremos el 
salto mediante RST «10. El retor- 
no se realiza mediante un JP 
%05СІ (ojo, nada de RET). Me- 
diante este JP devolveremos el 
control al analizador de BASIC. 


Rutinas de ejecución 
de SCREENS n: 


El valor de n se toma del stack y 
se guarda en el registro H. El color 
del borde se cambia llamando la 
rutina apropiada de la ROM prin- 


cipal. El color de la tinta (INK) se 
cambia a blanco o a negro para lo- 
grar el máximo contraste, y se 
guarda junto con el color del papel 
en la variable del sistema ATTR- 
Р, 


Rutinas de ejecución 
para INVERSE: 


Cargamos en BC el comienzo de 
la zona de atributos de pantalla, y 
utilizamos los registros À y D para 
intercambiar los colores de papel y 
tinta (INK). Posteriormente se in- 
crementa el par de registros BC y 
se cierra el bucle, que se ejecutará 
hasta que hayamos cubierto toda 
la zona de atributos. 


Rutinas de ejcución 
para BIN: 


BC se carga con la dirección del 
comienzo de la memoria de panta- 


As THEN GO ТО 220 

225 IF A THEN GO TO 240 

230 GO SUB 1000*VAL АФ В 
240 CLS : PRINT "EI BASIC АМЕ 
LIADO ya es operat 

ivo." О SAVE 
250 RANDOMIZE USR бей КЕМ ej 

ecucion C CLS : 
260 GO TO 18000 : REM fin de los datos 
programa nombre BAS 
499 REM DATAS del codigo maquin БЕТИ 


а 


10,88,10, 
рата. 7,87, 


254,91, 32 
40 DATA 


s254, BB, 


micro 
CLS : 
microdriv 
2010 INFUT 
ЕФ, "NUMERO 


EN EL 
PAUSE 
2050 SAVE 
3,1 о 


240 


2069 RETUR 


Rutina de grabacion en 


PRINT 
y 


"INTRODUCE UNA 
DESCONECTA “EA 


"HaSICamp"CODE START, 1 


ЕКІМТ "Ya he grabado 
en el casete con el 
ICamp." 

RN 


M Rutina de grabacion 


dri 


INT "Grabando en el 


e. 
"NOMBRE DEL FICHERO": 
DE DRIVE":D 

ок 


LEN ЕФ>10 THEN 


DRIVE NUME "g 
1: PAUSE © 
*"M'SDRFSCODE START, 12 


М 


lla. El acumulador se utiliza para 
hacer la inversión de la pantalla 
mediante una operación O EX- 
CLUSIVA con FF. Aquí también 
se cierra un bucle que se repite 
hasta que se ha realizado la inver- 
sión de toda la pantalla. 


El programa en BASIC es para 
aquellos que no posean un ensam- 
blador. Introdüzcase el programa y 
sálvese en cassette о microdrive 
antes de ejecutarlo. Posteriormen- 
te ejecütese. Si se produce un men- 
saje de error en la suma de com- 
probación (checksum), revísense 
los datos de las líneas 500 a 540. 
Una vez que todo esté correcto 
aparecerán en pantalla las nuevas 
instrucciones y las acciones que es- 
tas realizan. Posteriormente se 
debe optar entre guardar el código 
máquina en cassette o microdrive. 
Siganse las instrucciones que apa- 
rezcan en pantalla. Para utilizar 
las nuevas instrucciones, una vez 
salvadas, introdüzcanse las si- 
guientes órdenes directas: 


CLEAR 59999: LOAD” “CODE 
(para cassette) 

(LOAD  "M";d;"nombre"CODE 
para microdrive). RANDOMIZE 
USR 6e4 


Las instrucciones del BASIC am- 
pliado no funcionarán después de 
un NEW, pero volverán a ser váli- 


EA9F 
ЕААО 
EAA2 


EAAS 


EAAS 
ЕААЯ 


ED43B75C 
c9 


FEDC 
САТСЕА 
FEOF 
CA9FEA 
FEF6 
CACSEA 
C3F001 


D7 
2000 

07 

8210 
CDB705 


6BOD 
C3clos 


010058 


0А 
E607 


: CAMBIO DE ATRIBUTOS 

|: PANTALLA CONSCREENS n 
: EINVERSION CON INVERSE 
: Y BIN PARA USUARIOS DEL 
+ INTERFACE | 


INICIA 60000 :DIREC DE COMIENZO 
+8 FIJAR NUEVAS VARIABLES 
431 

ID BCSTART 

LD (VECTOR) BC. 

¿VUELTA AL BASIC. 


i COMPROBACION DE SINTAXIS 


START СР *DC:TOKENDESCREENS-206 
JP Z,SCRSIN 
CP — *OF;TOKEN DE INVERSE-206 
JP ZJNVSIN 
CP — &F6,TOKEN DE BIN-206 
JP Z.BINSIN 


JP ERROR. 
2 ANALIZADOR DE SCREENS 
ŠCRSIN RST — %10:СООЕЕІ SIGUIENTE CARACTER 


DEFW NEXTCH 

RST — s10.COGE EXPRESION NUMERICA 

DEFW NUMEXP 

CALL STEND ¡COMPRUEBA FINAL 
TRUCCION 


INS- 


; RUTINAS DE EJECUCION DE SCREENS 


RST — *10;PONE EL COLOR EN EL ACUMU- 
LADOR 

DEFW UNSTA 

ID НА 

RST +10;CAMBIA BORDER 

DEFW BORDER 


LD — AH:RECUPERA A 
¿PASA COLOR A LOS BITS 3-5 


CP — 25;COMPARA NIVEL DE CONTRASTE 
JR. МСАМКО ¡TINTA (INK) NEGRA 
OR 7;TINTA (INK) BLANCA 


INKO LD (ATTR_P)A:CAMBIOINK Y PAPER 
RST — s10;BORRA PANTALLA 
DEFW CLS 


JP BASIC VUELTA AL BASIC 


1 ANALIZADOR DE INVERSE 

INVSIN RST — *10;COGE SIGUIENTE CARACTER 

DEFW NEXTCH 

CALL STEND :COMPRUEBA FIN DE INS- 
TRUCCION 


; RUTINAS DE EJECUCION DE INVERSE 


LD BC,ATR ;BC-COMIENZO ZONA ATRI- 
BUTOS 

ABC) :A-ATRIBUTO 

7;A=TINTA (INK) ANTIGUA 


BUCLE 1р 
AND 


ЕААВ 
БААС 
EAAD. 
EAAE 
EAAF 
EABO 
EAB2 
EAB3 
БАВА 
EARS 
EAB6 
EAB7 
EAB8 


EABA 
EABB 
EABC 
EABD 
БАВЕ 


ЕАСО 
EAC2 


EACS 
EACÓ 
ЕАС8 


EACB 


EACE 
EACF 
FADI 
EAD2 
EAD3 
EAD4 


EAD6 2 


EAD8 


5СВ7 


„010 


07 
07 

07 

57 
0А 
E638 
üF 
[3 
[3 
© 

57 
ОА 
E6CO 


82 
(2 
03 
78 
FESB 


20E6 
С3С105 


D7 
2000 
CDB705 


010040 


Bl 


;A-NUEVO PAPEL 
D.A;D=NUEVO PAPEL 

A, (BC) ;A=ATRIBUTO 

%001 1 1000 ;A=PAPEL ANTIGUO 


¡A=NUEVA TINTA (INK) 

NUEVOS TINTA (INK) Y PAPEL. 
NUEVOS TINTA (INK) Y PAPEL. 
А, (ВС) ;А=АТКІВОТО 

9011000000 ¡A=BRILLO (BRIGHT) Y 
FLASH 

A,D:A=NUEVO ATRIBUTO 

(BC),A ¡CAMBIO EN PANTALLA 

INC вс 


LD АВ 
CP + SB;¡COMPRUEBAFIN ZONA ATRIBU- 
TOS 


JR — NZBUCLE:CIERRA EL BUCLE 
JP BASIC ¡VUELTA AL BASIC 


ANALIZADOR DE BIN 


RST — *10;COGE SIGUIENTE CARACTER 

DEFW NEXTCH 

CALL STEND ¿COMPRUEBA FIN INSTRUC- 
CION 


RUTINAS DE EJECUCION DE BIN 


LD  BC,PANTA :BC-COMIENZO MEMORIA 


PANTALLA 


LAZO LD A,BC);A-BYTE DE PANTALLA 
XOR #FF:SEINVIERTE 
LD (BC),A ¡SE DEVUELVE CAMBIADO 
INC BC;SE INCREMENTA ВС 
ID AB 
CP — +58 СОМРВУЕВА FINAL DE PANTA- 
LLA 
JR NZ,LAZO :CIERRA EL BUCLE 
; ЈР. BASIC;YUELTA ALBASIC 
iETIQUETAS 
VECTOR EQU #5СВ7 УЕСТОВ PARA AMPLIACION 
BASIC 
ERROR EQU  40IFÜ;ERRORSINTACTICO — (SHA- 
DOW) 
NEXTCH EQU +0020 ¡COGE SIGUIENTE CARACTER 
ic) 
NUMEXP EQU +H1C82:COGE EXPRESION NUMERI- 
СА (PRINC) 
STEND EQU +0587 ¡COMPRUEBA FIN INSTRUC. 
(SHADOW) 
UNSTA EQU +1694 РАЗА DE STACK A ACUM. 
(PRIN 
BORDER EQU 32297 ¡CAMBIA COLOR DEL BORDE 
(PRINC) 
ATTP EQU *5C8D; VARIABLE DE ATRIBUTOS 
сїз EQU ++0D6B:BORRA PANTALLA (PRINC) 
BASIC EQU #05С1 ¡VUELTA AL BASIC (SHADOW) 
ATR EQU #5800 COMIENZO ZONA DE ATRIBU- 
TOS 
PANTA EQU #4000 :COMIEZO MEMORIA DE PAN- 


TALLA 


das si se ejecutan un RANDOMI- 
ZE USR бе4. 


Una vez que estén las nuevas 
instrucciones operativas, escriba 
SCREENS 1, y toda la pantalla se 
pondrá de color azul, así como 
blancas las teclas. Las instruccio- 
nes INVERSE y BIN tendrán cl 
mismo efecto visual en la pantalla. 
La instrucción BIN influye еп 105” 
resultados de la función POINT ya 
que si un punto estaba encendido, 
ahora estará apagado, y viceversa. 
Una aplicación específica de BIN 
es la inversión de volcados de pan- 
talla. 


+1682 principal tomar expresión numé- 


rica 


#lc8c principal. tomar expresión alfanu- 
mérica 

#0018 principal pasa el byle actual al 
acumulador 

#0020 principal pasa el byre siguiente al 
actual acumulador 

#010 shadow error sintáctico 

#05b7 shadow comprobación de fin de 
instrucción 

#05с1 shadow retorno al intérprete 

ASIC 

#0020 shadow produce un error de la 
shadow ROM (debe ir 
seguido por un número 
comprendido entre'#16 
уж) 

350028 shadow produce un error de la 


ROM principal (debe 
vargarse el código de 
error en la posición 
Sca) 


¿Le pareció complicado? Si tie- 
ne alguna duda no lo dude: escrí- 
banos. Nuestro «experto» en códi- 
go máquina promete contestar а 
todos. 


Anímese, no se conforme con 
las funciones que incorpora su 
Spectrum y crease aquellas que 
sustituyan a esas viejas rutinas que 
viene utilizando desde hace tiem- 
po. Si le funciona, nuestra más fer- 
viente enhorabuena, y si lo coloca 
en un sobre a nuestra dirección, 
doble enhorabuena por la publica- 
ción de su futuro artículo. 


para ordenar el 


JH VAWLJOS 


ara realizar un buen progra- 
P» hay que olvidar el orde- 

nador. Al menos mientras 
Ea no se tenga claro lo que se 

quiere hacer y cómo se va a 
llevar a cabo. Eso es lo que hici- 
mos con el programa que le mos- 
tramos a continuación y que le ser- 
virá para ordenar sus programas 
almacenados en cassette de una 
forma tan original como didáctica. 


Problema 


Realizar un programa que alma- 
cene los datos relativos a los pro- 
gramas que se guarda en cada cas- 
sette y obtener una copia por im- 
presora. Deberá permitir la actua- 
lización de la información confor- 
me se vaya cambiando los datos 
del cassette. Aprovechando que la 
impresora de Sinclair о cuales- 


quiera otra similar, presenta un 
ancho de papel igual al ancho del 
cassette, también deberá realizar 
una copia por impresora para 
adaptarse al cassette. 

Analizando el problema en pro- 
fundidad, el programa debe posibi- 
litar la entrada de datos por tecla- 
do. Las opciones de impresión por 
pantalla e impresora serán opcio- 
nales y segün la información selec- 


cionada. Aprovechando la posibi- 
lidad del Spectrum de grabar los 
datos conjuntamente con el pro- 
grama, se grabará la información 
utilizando este procedimiento, lo 
que lleva a proteger el programa 
ante el posible uso de la instruc- 
ción RUN. Por tanto, otra de las 
opciones que habrá de tener el 
programa será la anulación de la 
información que se estime conve- 
niente. Para programar de forma 
ordenada, las distintas opciones sc 
incorporarán en forma de menu", 
que constituirá la parte principal 
desde donde se bifurcará a los mó- 
dulos o bloques de instrucciones 
que realicen las distintas opciones. 


Procedimiento a seguir 


l. Inicializar las variables a 
utilizar (variables numéricas, alfa- 
numéricas y tablas). 

2. Presentar opciones 
menú: 

— Introducción de 
(creación del archivo). 

— Impresión de los datos (рап- 
talla/impresora). 

— Actualización de los datos. 

— Eliminación de los datos. 


del 


los datos 


— Impresión en formato espe- 
cial para el cassette. 

— Grabación de los datos. 

— Eliminación de todos los da- 
tos. 

Finalizada la opción elegida se 
volverá al menú para nuevas ор- 
ciones. 

3. La creación del archivo su- 
pone: 

— Definir un contador de ar- 
chivos (el número de archivos 
existentes + 1). 

— Introducción de datos. 

— Incrementar el contador de 
archivos. 

— Sub-opciones para poder vi- 
sualizar los datos introducidos, 
crear un nuevo archivo o volver al 
menú. 

4. Operaciones comunes a la 
impresión de datos por pantalla o 
impresora serán: 

— Introducción del código de 
archivo, 

— Impresión del contenido en 
pantalla. 

— Sub-opciones: impresión en 
impresora (COPY), visualización 
de otro archivo o volver al menú. 

5. La revisión de datos deberá 
tener los siguientes pasos: 


— Introducción del código de 
archivo a revisar. 

— Impresión por pantalla de la 
información del archivo solicita- 
ао 

— Introducción de nuevos da- 
tos si así se desea. 

— Visualización de los nuevos 
datos introducidos, en su caso. 

— Volver al menú. 

6. Para eliminar un archivo: 

— Introducción del código de 
archivo a eliminar. 

— Visualizar el nombre y refe- 
rencia del archivo que se pretende 
eliminar. 

— Confirmar la eliminación. 

— Borrar el contenido del ar- 
chivo seleccionado. 

— Trasladar los datos de archi- 
vos por encima del eliminado, si 
los hubiere, para mantener la se- 
cuencia de numeración automáti- 
ca de archivos. 

— Actualizar el contador de ar- 
chivos (número de archivos cxis- 
tentes - 1). 

— Sub-opción: Listado de los 
archivos (COPY) para tener una 
copia de la nueva situación y vol- 
veral тепи. 

— Volveral menü. 


5 LET 3$s"FIGHEROX 882 PRINT ,,"6. GUARDAR FICHERO 
18 REN FISHERS CASSETTE s" Д 
88 DIM 0%(12,4) 290 PRINT ,,"7. BORRAR TODOS LO 
За DIM №8 (10, 15) 5 FICHEROS" 
40 DIM P$(10,10,18) 300 PRINT ,,"INTRODUZCR LR OPCI 
52 DIM T(10,10,2) ON" 
82 LET Хай 312 INPUT M 
72 LET Ғай 320 IF М‹1 OR M»? THEN GO TO 30 
БЫ ЫШ МН @ аз IF М=6 ОҢ Ме? THEN GO TO ма 
= = 
98 LET B$»"REF. CINTA: " 1000 
100 LET BSs"NOMBRE CINTA 332 ČLS 
119 LET F$a" FICHERO: 2 342 GO SUB M«i1000 
150 LET G$z'"NOMBRE PROG. 358 ČLS 
190 LET Н$=' CONTADOR: 855 IF xal THEN GO TO 20 
140 LET If="DESDE 360 бо TO 210 
150 LET TF=8 909 REM +++ лнн + 
150 ГЕТ X9= 910 REM ++ CREAR FICHERO ++ 
920 REM xk3*t4* 44 4 d exe de 
1092 LET FaTF+i 
1010 IF Fí=10 THEN GO TO 1020 
1015 PRINT “NO НАУ SITIO PARA D 
ТЕО FICHERO*"'"BL VOLVER AL MENU 
190 REM жазан» ELIGA LR "'"OPCION “GUARDA 
191 REM жәМЕМУ% R FICHERO: PARA _ "'"BLMRCENBR L 
195 REM жз Os FICHEROS ACTUALES "'"LUEGO BO 
200 PRINT 38 | я RRE LÖS FICHEROS PARA — "'"CRERR 
S18 PRINT ТАВ 20; MENU 1018 PAUSE 30d 
Ж 8 
230 PRINT "1. CREAR FICHERO 1815 RETURN 
=840 PRIN 2, 2. VER/LISTAR FICH 2080 PRINT "TRABAJANDO EN FICHER 
о NO. 
2850 PRINT ,,"3. COMPROBAR FICHE 1832 PRINT AT "TECLEE REF. С 
250 PRINT .,'4. BORRAR FICHERO" 1948 INPUT СР) 
270 PRINT ,,"5. LISTAR ETIQUETA 106% PRINT BÍ B,U;ES;RT 2,0,88;" 
$ DE CINTA 3 (MAX.18 CAR.) " 


PRO ONO 


7. Impresión de los datos en 
formato de cassette. 

— Introducción del código de 
archivo a imprimir. 

— Impresión de la información 
en el formato de cassette. 

— Volver al menú. 

8. La grabación de los datos 
supone: 

— Posibilidad de que el usuario 
elija un nombre para la grabación. 

— Confirmar la grabación (vol- 
veral menú en caso negativo). 

— Detener el programa hasta 
que el cassette esté preparado. 

— Grabar el programa en forma 
de autoejecución. (SAVE “LINE” 
XXXX). 

— Volver al menú. 

9. Eliminar toda la informa- 
ción: 

— Confirmar la eliminación. 

— Utilizar CLEAR para mayor 
rapidez. 

— Reinicializar las variables. 

— Volver al menú. 


REF. CINTA: HIFI FICHERO 


todospectrun 


NOMBRE CINTA 


NOMBRE PROG. CONTADOR 


Comecocos 
The hobbit 
Ajedrez 
Graficos 
Easel 


Estratego 


REF. CINTA 
NOMBRE CINTA 


HIFI FIZHERO 
todospectrum 


7 Galaxia 2000 


Formato especial para cassette. 
Variables 


С$ (10, 4) 


Referencia del cassette (4 caracte- 
res). 


NS (10, 15) 


Nombre del cassette (15 caracte- 
res). 
Р$ (10, 10, 15) 


10 nombres de programas (15 ca- 
racteres) para cada uno de los 10 
cassettes. 

Т (10, 10, 2) 


Numeración del contador inicial y 
final para cada uno de los progra- 
mas de los distintos cassettes. 

F 


Código del casserte con el que se 
está trabajando. 
TE 


Contador de archivos (máximo 
10). 
M$ 


Variable alfanumérica utilizada еп 
los menús. 


Variable numérica utilizada en los 
menús. 
5$ 


Nombre del programa. 
N,L 


Variables utilizadas en bucles. 
Variable nula para utilizar en im- 


presión. 
AS, BS, FS, 


A A A A A A A A A A A A ышы: ажаан сес 


1960 INPUT МЕ (Р) PRINT "QUE FICHERO?" 
1098 БАТАТ A B ERAT 2,0, "тес 3002 ПИТ r^" 
LEE NOMBRE DE PROG. Y CUENTA 2015 REM eENTRADR DESDE OTRAS SU 
. 
1100 PRINT AT 4,0;"PROGRAMA ";N Boso Ls 
1110 PRINT 9815 0115 CMRS Maxi 283% 18 TRO, AND сате AND Foul 
, 
1139 PRINT ATEO EN; RT 5,0; He" 2048 PRINT "NO EXISTE NINGUN FIC 
DESDE?" HERO_CON ESENUNERO , MENU (M) ОО 
1140 INPUT T(F,N,1) o ER OTRO FI- CHERO (U)." 
1150 PRINT RT 8 HASTA ^ 2060 INPUT M$ 
1158 шел tnn 5850 ie Маани" THEN RETURN ^o. 
1128 PRINT АТФ: AT 8,0; "ОТА 2098 PRINT “SIGA LAS INSTRUCCION 
PROGRAMA 7(S/N) ^ Es' 
1180 INPUT 8128 GO TO 2050 
1190 IF M Hi 2118 CLS 
1200_ТР M Ө 8182 PRINT ЕФ; 
80 TO 2i 2130 PRINT ‚Ав; Св (Е) 
1210 МЕХ 2140 PRINT "ннат ж 
1888 LEF T Es ras гознастав ге;т 
IHS; ; 
1230 BRINT 3 i 
F) 160 PRINT “-------------------- 
FEU O M." 2170 FOR Ма1 TO 18 
1240 INPUT 2180 PRINT N;".";PS(F,N);TRB 20; 
1250 IF E "F" THEN GO TO 1290 T(F,N,1);TRB гё; Кн) 
1262 LET 2186 NEXT 
1270 GLS 2198 РЕТ 81,0; LISTRR(L),SI 
1289 QO SUB 1020 GUIENTE ( U im)?" 
1292 CLS 2208 IND 
1298 Im Mgs"U" THEN GO SUB 2020 2210 PRI 21,058 
1308 RETURN 2228 1 THEN COPY 
1980 REM dibi +++ зза 2230 I THEN GO TO 2310 
1990 REM s** VER FICHERO %%% 2349 L 
1991 REM teet eet 2250 I THEN GO TO 2300 


P] Ж PEEL DONE и eS Сс 
а =» um etiaro рата в 
o т patio ә 
Ure Ете 2/2, ТЕ D а o 
3 LAMA CERES ES РЫ ш 
Г] с о в O9 & ой жеж zZ 
а z - a ind -- - ж жж} ы 
- а а нина жожо Г 
ш o к о - о - жа * E 
[4 о к Z к 9v& в 9 жшжо 
а а ш о ш ш- ш ш- *I*Q d 
= а чо 30r ча жОжы mn 
о = = E ERES жн» ^ 
22 ЖАТ е A erae жа жі3- ы 
uia aes Ш чә шо. ш 9-4 ж жым. 
12109 Ild- Io!/£k;-7 I I чї жи»ш® о 
-a -> - S E odo Fo |92 F odd *C* A Z 
аоаш QOO чо | ош eara T 
о-аз Or Z: аа: а: TA жесі ' 
MOZA L -m- DL -ш- жо вх — OO а 
т^ 8:0  *f* ақ 


CÓZZ*** am" 


Mx HOCH хон --0. ина. 
асаса- OOX: 2а O--Zu WAZZ A инуг ошшшшша: Zu. 
Е mn мна Жауап а 


+ ТАМ ALTO 


"NO HAY NUM 


d к 
DO ооо uudssesesesoosese 


G$, HS, I$, X$, Y$, Z$ 
Variables utilizadas para la impre- 
sión. 


Indicador del uso de la instrucción 
CLEAR para pasar, en su caso, a la 
reinicialización de variables. 

Otra consideración a realizar 
antes de meterse a realizar el pro- 
grama es la utilización de los mó- 
dulos mediante subrutinas. Siem- 
pre es aconsejable evitar toda com- 
plicación, y ya que siempre se de- 
vuelve el control al menú, se evita- 
rán las subrutinas siempre que sea 
necesario cambiándose por los 
GOTO. 

Inicialmente se А рага 
almacenar los nombres de progra- 
mas con un nümero máximo de 10 
por cassette y 10 cassettes en total. 
Posteriormente, segün la memoria 
disponible, se puede cambiar fácil- 
mente para aumentar la capaci- 
dad. Un organigrama nos ayudará 
a ver el proceso de forma clará. 


6848 PRINT "NO EXISTE ЕЗЕ FICHER 
4050 POUR 150 
"5 


4070 BRINT F) 

4080 PRINT 

4090 PRINT ЗЕ НЯ D 
ARA CONF IRMA! IRI "ow 
EL MENU," 

4100 INPUT M$ 

4110 IF Мй‹›'О" THEN GO то 4430 
4120 PRE AT 1 MEC] LOS NU 
M. DE FICHERO ›"; Р, "5Е REDUCIRAN 
EN УМА UNIDAD. ` 

4125 IF FeTF TREN GO TO 4220 
4130 FOR N=F TO ТЕ-1 

4140 LET N$(N)sNS (N*1) 

4150 LET СЕ (М) CB (N+1) 

4180 FOR Lal TO 10 

4170 LET [i (м, PAINEL ЙЫ 

4180 LET T età (N+ ^ei] 
4192 LET T (N,L,a) AT (N+4,L,2) 
4200 NEXT L 

4210 NEXT М 

4220 LET SEHE TE 

4230 LET МЕ (ТЕ) Е 

4240 FOR Nal TO 1 

4258 LET PITE NIMES 

4860 LET Т(ТЕ,М,1) = 

4270 LET T(TF,N,g) «0 

4280 NEXT М 

4290 LET TFaTF-1 

1310 BRINT "FICHERO BORRADO" 
4320 PRINT rr RUEDO LISTADO: " 
4330 PRINT 

4340 FOR Nz1 TO TF 


SiNi" "JAB См) 


T 21,8; "COPIAR LISTA 
UÉR' ÉL MENU (M). 


=з з 


UT 
Note THEN GO TO 4430 
NT АТ 21,0;Е% 


Е 
)s1 AND F«zTF THEN GO T 
NT "*NO EXISTE ESE FICHE 


JAS; CS (г); TRB 
ВФ" " м); 
';GS8;TRB 20; 


Л А ЮО СА © O1 ОИ лл ООА н PP P PRPRPRCORPRPR 


MENU 
+ CREAR FICHERO 
VER/LISTAR FICHERO 
COMPROBRR FICHERO 
BORRRR FICHERO 


FICHERO: 


1 
REF, CINTR: 


HIFI 


a төлене 
PROG. 


* LISTAR ETIQUETAS DE CINTA 


GUARDAR FICHEROS 
7. 
INTRODUZCA LR OPCION 


Comentarios 


No hace falta decir que es un 
programa un poco largo. Pero su 
buena estructuración lo hace espe- 
cialmente aconsejable para seguir 
de cerca los distintos algoritmos de 
que se componen sus principales 
módulos. El programa no es “а 
prueba de tontos", pero verifica la 
mayor parte de las respuestas, pi- 
diendo la confirmación de las op- 
ciones que pueden suponer la pér- 


BORRAR TODOS LOS FICHEROS 


LISTAR (L) 


dida parcial o total de la informa- 
ción almacenada. 

El programa puede mejorarse 
considerablemente de dos formas. 
Mediante la incorporación de una 
rutina de búsqueda para encontrar 
el cassette donde se encuentra un 
programa determinado. La segun- 
da posibilidad de mejora se refiere 
a la posibilidad de imprimir la in- 
formación de varios cassettes de 
forma simultánea en la opción 4, 
ya que se vuelve al menú después 


¿SIGUIENTE ($) ,MENU (М) 7 


de cada impresión de un cassette. 
Piense sobre los cambios a intro- 
ducir en laslíneas 2190 a 2310. 

Si piensa que el programa no es 
demasiado útil, considere la огірі- 
nal idea de utilizar el formato de 
impresión idéntico al cassette para 
ordenar sus programas, la posibili- 
dad de aumentar la dimensión de 
las variables y, por supuesto, la 
modificación del programa para 
guardar otro tipo de información: 
libros, discos, etc. 


515@ LPRINT “I "¡TAB 20; бота IF M5 

АЕРО 8082 IF M$ 

5182 LPRINT 6092 (ЕТ 4 

8172 FOR N 6100 GO TO 

$180 LPRINT "-';N;" " ‚мута 6592 REM + 

B'2ljT(F,N,1);TÀB 25; ЕТА 7000 REM * 

831 d 2% 2005 REM + 

5192 NEXT М 2010 PRINT 

3299 LORINT Yaj Xs MAR QUE DE 

8212 LPRINT "R';Rg;CS(F);TRB 20; FICHEROS" 

РОВ 7028 PRINT 

5282 LPRINT 28; »";88;" "i МСЕ); AL MENU." 

TAB 31;" M" 7838 INPUT Ms 

5230 LPRINT_Y4¡X 7040 If Мас О" THEN GO TO 7080 

8242 FOR Ма? TÒ 2952 CLER 

5250 LPRINT "|"; М; PSION т 2282 PRINT ,,"NOMBRE PRRA ESTE К 

В 21;Т1Р,М,1); AB as; tE RD IT ICHERO" 

EIE ЛЫ. 2072 INPUT 5% 

5262 NEXT М 7080 LET Ха1 

5272 LPRINT Y 2292 56 TO 35 

5230 RETURN 9890 REM аже кна 

5990 REM Faidid ahi d ab d at dt e A at a en 8900 REM +*AUTO-EJECUCION++ 

6929 КЕН **GURRDRR FICHEROS +4 83% REN texte d RE 
rd EXER 

5005 CLS 8922 PRINT "EL NOMBRE DEL PROGRA 

8012 PRINT "ВОТ. ОЕ ALMACENAMIEN МА ES " pie om акар 

TO EN CINTA " $930 PRINT "' ; 

6020 PRINT ,,"EL NOMBRE DEL PROG 9942 PRINT “жатомЕ Siras 

RAMA ACTUAL” 399% PRINT .. PREPRRE EL CASSETT 

СТЕУ gui о Аы Аы» 

"ТЕС А 

ABAE DEL pró- GRAMA O PULSE ENTE 8960 ІР INKEYSs"" THEN GO TO 995 

R SE DO-GUIEREGURHDRR CON EL NOH @ 

BRE RNTIGUO" $970 SAVE 5% 

6050 PRINT ,,"PULSE М PARA MENU" $980 CL$ 

6068 INPUT МФ $990 GO TO 200 


EL VU-3D es un programa de 
diseño gráfico que nos permite de- 
finir objetos en tres dimensiones 
sacando una presentación por pan- 
talla o por impresora de una visión 
del objeto desde el punto de vista | 
que queramos, permitiendo que el 
usuario se forme una idea general 
del objeto en tres dimensiones a | 
base de rotarlo у moverlo. | 


El programa necesita un Spec- 
trum de 48 KRAM, un cassette y 
una televisión. Si se tiene una im- 
presora se pueden sacar copias im- 
presas de los dibujos para mayor 
gloria del creador. 


La carga del programa se realiza 
con dificultad usando las instruc- 
ciones LOAD “” que son habitua- 
les en la mayoría de los programas 
comerciales. Una vez cargado se 
nos pregunta si queremos cargar 
un fichero de cinta o si vamos a 
leer un dibujo anteriormente crea- 
do y que hayamos tenido la pre- 
caución de salvar con anteriori- 
dad. 


Después de cargar el fichero (si 
cargamos alguno) nos aparece un | 
menü con siete opciones, la opción 
4, crear figura es la que hace falta 
para crear un objeto y si no carga- | 
mos ningün dibujo de cinta al 
principio el programa no va al 
menú principal, sino que se pasa 
directamente al modo de creación 
de objetos. En esta rutina debemos 
crear el objeto que posteriormente 
se representará en perspectiva. 


Еп los últimos meses, el mercado inglés ha El modo еп que definimos un 


дА Dee UY objeto no está extenso de compleji- t 
lanzado una considerable cantidad de dad y se necesita una buena visión 
sofiware para aumentar —у еп el mayor de espacial (imaginación en tres di- 
los casos facilitar— las posibilidades mensiones) para poder crear el di- 


gráficas del Spectrum. El VU-3D fue uno bujo que deseamos. En la parte su- 
de los primeros, nacido de la célebre casa Perior de la pantalla nos aparecen 


Psi ч ded "US [ES una serie de comandos, mientras el 
sion, y uno de los más conocidos en centro se deja para el dibujo de las 


España, objeto de estudio de este artículo. — distintas partes que componen el 
objeto. Antes de empezar la defini 
ción del dibujo debemos dividir | 
nuestro objeto еп componentes 
sencillos. Cada uno de éstos debe 
ser una figura geométrica sencilla 
y sin curvas (cubos, pirámides de 
tres o más lados, etc.) y entre todos | 

2 deben formar el objeto. Е! modo | 
20 


de funcionamiento es similar a un 
juego de construcción de madera 


compuesto рог las piezas geomé- 
tricas fundamentales. Para cons- 
truir un edificio debemos apilar las 
piezas de un modo lógico. En este 
programa el funcionamiento es si- 
milar pudiéndonos definir las pie- 
zas de la forma que queramos 
(pero dentro de unos límites) y las 
vamos apilando según las defini- 
mos. 

La pantalla está dividida en dos 
ejes X e Y (ancho y largo) y un ter- 
cer eje Z destinado a la altura se 
muestra en sucesivos cortes se- 
cuenciales, siendo el primero el 0 


(altura del suelo) ascendiendo pro- 
gresivamente hasta la parte supe- 
rior del objeto. Por tanto nuestro 
punto de vista es como si estuvié- 
semos mirando desde el cielo hacia 
abajo. 

Los comandos disponibles son: 
Open, Close, Figure, Quit, Next Z, 
Reduce y las flechas de movimien- 
to del cursor. 

El comando Next Z nos permite 
desplazarnos por las distintas altu- 
ras del dibujo, el 0 es el suelo. el 1 
es un punto más arriba, el 10 son 
diez puntos más, etc. Hay que te- 


ner en cuenta que una vez que se 
sube, no se puede bajar. Por loque 
debemos tener cuidado al dibujar 
para no olvidarnos nada, lo que 
obligaria a repetirlo todo. 

Open nos permite definir la par- 
te inferior de la figura en el plano z 
en que nos encontremos en este 
momento. Todas las figuras que 
dibujemos aquí deben ser cerradas 
y si no las cerramos nosotros, las 
cerrará el programa al salirnos de 
la opción. Para dibujar una figura 
nos colocamos en el punto en que 
queramos empezar a dibujar, pul- 
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Como profesional del mundo 
de la imagen, poco 
imaginaba José Carlos 
Tomás cuando compró el 
Spectrum que aquel pequeño 
ordenador llegaría a 
convertirse en una 
herramienta más en su 
cotidiano trabajo. Gracias al 
programa VU-3D 
descubriría cómo potenciar 
el dibujo animado. Así nos lo 
decía desde su rincón de 
trabajo. 


0,30) 


samos "S" y пов desplazamos has- 
ta otro punto que esté unido con el 
anterior pulsando “L” a continua- 
ción, con lo que el programa nos 
unirá los dos con una recta. А con- 
tinuación nos vamos a un tercero y 
volvemos a pulsar *L" para unirlo 
con el segundo y así sucesivamen- 
te. Cuando hayamos definido to- 
dos los puntos pulsamos “Е” con 
lo que la figura se cierra uniendo el 
ültimo punto definido con el pri- 
mero y volvemos al menü de 
“CREATE” en el que podremos 
pasar a definir otra figura. Mien- 
tras estamos dibujando podemos 
pulsar la tecla “D” que nos borra 
la ültima figura definida (o en caso 
de que no hubiese ninguna defini- 
da nos volvería a CREATE. Una 
vez que hayamos definido todas las 
figuras de un plano z nos iremos 
desplazando por medio de la N 
hasta el plano donde se acaba cada 
figura (no es posible hacer que 
crezcan hasta el infinito) y aquí 
una vez seleccionada la figura con 
el comando "Figure" (que verc- 
mos a continuación) elegimos la 
opción Close que la cierra defi- 
niendo ese límite como el superior, 
al cerrar el programa nos pregun- 


tará si queremos que el borde su- 
perior sea abierto o cerrado (que 
deje pasar o no la luz). Para definir 
un dado que mida 20 puntos de 
сайа lado deberemos, por tanto, 
colocarnos en el plano z = 0, abrir 
(con Open) la figura y dibujar la 
base usando las flechas y "S", “L”, 
"D", una vez hecho esto damos 
una "E" para volvera "CREATE" 
y desde allí, pulsando veinte veces 
la N nos vamos al plano z - 20. 
Allí seleccionamos la opción Close 
y cerramos la figura, haciendo que 
tenga la misma forma en la partc 
superior que en la inferior. Si nece- 
sitamos crear varias figuras a la 
misma altura (las patas de una si- 
lla, por ejemplo) deberemos abrir 


NU 3DJenjelicine 


El dibujo animado es, sin duda 
alguna, una de las facetas que el 
cine utiliza para crear historias y 
personajes fantásticos que de otro 
modo sería impensable. 

Básicamente la animación es 
muy simple. Sólo es cuestión de 
filmar con una cámara imagen por 
imagen una serie de dibujos entre 
los cuales hay ligeras diferencias. 
Si nos metemos de lleno en la téc- 
nica del dibujo animado veremos 
que es un poco más complicado 
pero el principio es el mismo. 
Todo depende del tipo de dibujo o 
de los objetos que queramos darle 
vida con nuestra cámara, 


El año pasado tuve que hacer 
una película de presentación para 
“unas proyecciones de cine amateur 
y se me ocurrió utilizar mi Spec- 
trum para darle un toque de origi- 
nalidad. Puesto que el VU-3D te 
permite mover figuras tridimen- 
sionales creadas por ti pensé rápi- 
damente en utilizarlo para hacer 
parte de la pelicula. Los resultados 
fueron cortos en cuanto a duración 
pero muy satisfactorios por la cali- 
dad obtenida. 

Lo primero que hice fue dibujar 
en un papel. a grandes rasgos, la fi- 
gura que quería que apareciese en 
pantalla. Era conveniente tener 


una vez por cada una de ellas, di- 
bujarla, salir usanuo “E” y abrir 
otra con la que se realiza el mismo 
proceso. 

El comando Figure es útil cuan- 
do nos hemos abierto varios dibu- 
jos distintos y no los hemos cerra- 
do después (cuando creamos las 
cuatro patas de la silla) pulsando la 
tecla “Е” nos va cambiando la fi- 
gura seleccionada, esa es la que ce- 
rramos al elegir el comando Close 
o la que podemos modificar con 
otros comandos, si sólo tenemos 
una figura abierta a la vez este co- 
mando no hace nada. La figura se- 
leccionada se muestra dibujándola 
a trazos, mientras las demás lo son 
con líneas continuas. 


una idea previa antes de ponerme 
en el asunto. Una vez satisfecho 
con el resultado cargué el VU-3D 
y pulsé la opción “crear una figu- 
ra". Aparecieron en la pantalla los 
ejes de coordenadas X e Y y los co- 
mandos que podía utilizar. Pulsé 
OPEN (Abrir) y el cursor hizo acto 
de presencia, al tiempo que cam- 
biaban los comandos a utilizar. 
Puse el cursor en la parte inferior 
izquierda y comenzé a dibujar la 
figura como si la viera desde arri- 
ba. Más adelante le daría profundi- 
es una vez centrada еп la panta- 
a. 


Tomé, no obstante, nota de to- 
das y cada una de las coordenadas 
para poder repetirla en caso de sa- 
lirme mal. 


Los comandos Magnify у Redu- 
ce se usan junto con la figura selec- 
cionada con Figure y nos aumen- 
tan o disminuyen el {атайо de la 
parte superior del dibujo en cues- 
tión. Como la base permanece del 
{атайо que previamente le hemos 
definido, si reducimos el tamaño 
de la parte superior (Reduce) nos 
quedará una figura con forma de 
pirámide, en cambio si magnifica- 
mos nos quedará una pirámide in- 
vertida (similar a la parte superior 
de una copa). Al cerrar la figura, el 
programa une con líneas rectas las 
partes superior e inferior corres- 
pondientes. De modo que si quere- 
mos crear un lápiz deberemos ha- 
cer el cuerpo con un figura en la 
que la parte inferior y la superior 
tengan el mismo tamaño y, a con- 
tinuación añadirle en la parte su- 
perior otra figura con la base del 
mismo tamaño pero la parte supe- 
rior Reducida hasta hacer punta 
(Fig. 1). Además, desde el CREA- 
TE podemos mover la parte supe- 
rior con las flechas, de modo que 
no se encuentre centrada respecto 
a la parte inferior, sino desplazada 
a un lado con lo que se pueden ob- 
tener efectos interesantes (el res- 
paldo de nuestra silla, por ejem- 
plo, se puede inclinar para que no 
esté recto, sino que la parte supe- 
rior esté más para atrás que la infe- 
rior). 


Una vez terminada la fase crea- 
tiva pulsé QUIT y volvi al menú 
principal donde tecleé la opción 
display. Automáticamente salió en 
pantalla mi figura en tres dimen- 
siones. Me acerqué a ella y la hice 
girar en todas las direcciones para 
asegurarme de su perfecto estado. 
Llegado este punto volvi al menú y 
grabé en cinta los datos de la figura 
para una posterior utilización. 


Al día siguiente me dispuse para 
la dura tarea de filmar. Previamen- 
te ya tenía una ligera idea de las 
evoluciones que mi diseño tenía 
que hacer en pantalla, por lo que 
fui directo al grano. 


. Coloqué la cámara frente al tele- 
visor y lo primero que hice fue 
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Una vez definido todo el objeto 
a representar debemos salir del 
menü CREATE haciendo uso de 
la opción QUIT (una Q) que nos 
conducirá al menú principal, en el 
que aparecen otras opciones ade- 
más de la que acabamos de dejar 
(crear figura). 

La primera opción de este menú 
es la de modificar una figura. Con 
ella podemos variar el tamaño y la 
posición en el plano de las distin- 
tas figuras, pero no su posición en 
el eje z, ni tampoco podemos qui- 
tar o añadir figuras. Podemos, por 
ejemplo, mover un dibujo de la 
parte inferior de la pantalla a la su- 
perior, pero no podemos hacer que 
empiece a una “altura” de 20 en 


ajustar el diafragma. Para ello era 
necesario encender el televisor y 
procurar que ninguna otra luz in- 
terfiriera. Quité la antena y au- 
menté el brillo y el contraste casi 


“Con el VU-3D es fácil ha- 
cerse un taller de animación por 
ordenadores.” 


hasta el máximo. Medí la luz con 
un fotómetro y ajuste manualmen- 
te el diafragma, el cual no tocaría 
hasta terminar el trabajo. Hecho 
esto conecté el Spectrum y cargué 
el VU-3D. Después cargué los da- 


a 
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vez de 10. El procedimiento para 
hacer esto es similar al utilizado 
durante la definición, por lo que 
no debe plantear ningún proble- 
ma. 

La opción de abandonar, no bo- 
rra el programa como en un prin- 
cipio se puede pensar, sino que bo- 
rra el dibujo existente en memoria 
y prepara el programa para la in- 
troducción de otro nuevo. 

Otras dos opciones permiten 
leer y escribir en cinta un fichero 
de datos, esta opción no graba la 
pantalla para poder leerla poste- 
riormente por este o por otro pro- 
grama con una instrucción LOAD 

““ SCREENS, sino que graba un 
conjunto de números que identifi- 
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tos de la figura, almacenados el día 
anterior, y pulsé display. Eliminé 
de pantalla el cuadro de mandos de 
la parte de arriba poniendo el PA- 
PER y la TINTA de igual color 
para que no me estorbaran. Au- 
menté el dibujo hasta que ocupó 
toda la pantalla y entonces centré 
y enfoqué la cámara. Esta tenia 
que quedar perfectamente a la al- 
tura del televisor y perpendicular 
al tubo. El enfoque lo hice ponien- 
do el zoom en posición de tele y 
luego retrocediendo hasta el limite 
del recuadro central. 


Una vez todo dispuesto y tenien- 
do la precaución de cerrar la puer- 
ta de la habitación para que nadie 
me molestara, situé la figura en la 


VUE 


can los vértices de nuestra figura, 
de modo que podamos seguir tra- 
bajando posteriormente con ellos. 
Este fichero sólo puede ser leído 
por este programa. 

La rutina denominada pantalla 
o display es la destinada a la repre- 
sentación, en tres dimensiones, del 
Objeto. Una vez que entramos en 
clla, sc borra la pantalla y aparece 
en la parte superior una lista (de- 
nominada DISPLA Y) de todos los 
comandos disponibles a este nivel, 
Asimismo en la parte inferior apa- 
rece otra línea en la que se indican 
los siguientes datos: el grado de 
magnificación de la figura (si hace- 
mos zoom), la rotación que le he- 
mos dado a la figura (el ángulo des- 
de el que la contemplamos) y el 
desplazamiento respecto al eje 2. 
Aunque puede parecer que el 
zoom y el desplazamiento del eje z 
son similares, existen pequeñas di- 
ferencias a la hora de manejar la fi- 
gura. Si acercamos demasiado el 
eje z, partes de la figura se defor- 
man (puesto que se salen del, teóri- 
co, plano de la pantalla), en cam- 
bio moviendo el zoom consegui- 
mos mayor acercamiento sin de- 


ormar la imagen, asimismo cam- 
bia (aunque sólo ligeramente) la 
perspectiva del objeto. Mientras el 
zoom по modifica las proporcio- 
nes, sino que sólo amplía el tama- 
ño. El desplazamiento del eje 2, 
proporciona una mayor sensación 
de profundidad. En la figura 2 se 
ha acercado el objeto lo más posi- 
ble acercando el eje z, mientras 
que en la figura 3 nos hemos aleja- 
do del objeto (aunque conservando 
el mismo punto de vista) y hemos 
utilizado el zoom para acercarlo. 
En esta última foto se nota una fal- 
ta de perspectiva que hace que la 
imagen carezca de cuerpo. 

Los comandos disponibles a este 
nivel son: Magnify, que nos acerca 
el objeto haciendo uso del zoom 
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fase inicial. Hice unas cuantas pul- 
saciones con mi disparador de ca- 
ble para que la figura no se movie- 
ra al principio de la раа Des- 
pués todo el proceso iba a ser repe- 
titivo: filmaba otras dos imágenes 
y movia la figura una posición 
para volvera filmar otras dos imá- 
genes. La línea inferior me daba 
cuenta del ángulo de rotación, así 
como de la proximidad de la figu- 
ra, lo cual me era muy útil a la 
hora de hacer ensayos de movi- 
miento durante la marcha, ya que 
anotaba las últimas posiciones 
para después poder regresar a ellas. 

Otro truco que utilicé fue de el 


cambiar colores de papel y tinta 
para dar la impresión de un flash. 
El programa me permitía hacerlo 
con toda comodidad. 

Después de toda una tarde de 
pulsar teclas y con los ojos en Гог- 
ma rectangular recogí cuidadosa- 
mente todos los trastos. Al día si- 
guiente llevé la película al labora- 
torio. El trabajo había concluido. 

Ya sea con el VU-3D o con otro 
tipo de programa de gráficos, he 
podido comprobar lo fácil que es 
hacerse un taller de animación por 
ordenador, en donde éste nos evi- 
ta el tener que dibujar y utilizar ta- 
bleros especiales y otros equipos. 


comentado anteriormente. Reduce 
efectúa la maniobra contraria del 
Magnify, es decir, aleja el objeto 
pero no modifica la perspectiva. 
Near nos desplaza el objeto mo- 
viéndonos por el eje z. De este 
modo aumenta su tamaño y se crea 
una mejor sensación de perspecti- 
va, pero, atención, si nos acerca- 
mos demasiado algunas partes del 
objeto pasarán del plano de la pan- 
talla y el programa las cortará. El 
comando Far nos aleja del objeto 
deshaciendo el camino hecho con 
el Near. El comando Quit nos de- 
vuelve al menú principal y por úl- 
timo Picture nos pasa a un subme- 
nú donde nos encontramos otras 
siete opciones: Quit nos devuelve 
al menú anterior, Shade sombrea 


auxiliares que esta técnica requie- 
re. Sin llegar, ni mucho menos, a la 
perfección de los dibujos de orde- 
nador profesionales, sí que pode- 
mos  aventurarnos, conociendo 
siempre nuestros límites, en el ma- 
ravilloso mundo de la animación. 
Hace algunos años se estrenaba 
en las pantallas de nuestro país la 
película “TRON”, Su historia era 
una de tantas, sin embargo la for- 
ma y concepción de la imagen era 
completamente distinta a otra 
idéntica en su género. La utiliza- 
ción de gráficos diseñados por 
computadora ocupaban gran 
de la historia. Eran por sí mismos 
protagonistas. 


¿Se podrían hacer cosas pareci- 
das con nuestro Spectrum?. Sí se 


ca 


el objeto dependiendo de la рові- 
ción de un foco teórico que puede 
estar colocado en nueve posiciones 
posibles dependiendo de su altura 
y si está hacia la izquierda, la dere- 
cha o en el centro, el dibujo adop- 
ta, a veces, resultados espectacula- 
res, aunque la mayoría de las veces 
no salga tan bonito como se espera 
(Fig. 4). La opción Hidden borra 
todas las líneas que no se ven si las 
superficies se consideran opacas (y 
no de cristal como hasta ahora) 
pero no sombréa (Fig. 5). Print nos. 
permite sacar una copia en papel 
impreso del dibujo (si disponemos 
de una impresora con capacidad 
gráfica). Keep permite salvar el 
gráfico en cinta de modo que pue- 
da ser leído con la instrucción 
LOAD ““ SCREENS, ya que hace 
un volcado de la pantalla por im- 
presora. Por ültimo la opción Co- 
lour nos permite modificar los co- 
lores del borde, del papel del dibu- 
jo y de la zona de órdenes (inde- 
pendientemente) y de la tinta de 
estos dos (también independiente- 
mente), aunque en el programa 
que vimos no funcionaba correcta- 
mente (sólo cambia el color del 
border) y tuvimos que recurrir a 
una opción similar disponible en 
el menú principal que sí funciona- 
ba correctamente. Uno de los usos 
más interesantes que зе puede dar 
a la opción de los colores del panel 


de mandos es hacer que el color de 
la tinta y del papel sean similares 
al papel del dibujo, de modo que al 
salvarlo (o imprimirlo) no salgan 
las letras, sino el dibujo solamente 
(Fig. 6). 

Cuando estamos en la opción 
DISPLAY (y siempre que no se- 
leccionemos PICTURE) podemos 
girar la figura respecto al eje verti- 
cal y al horizontal de modo que 
podamos ver todas las partes del 
dibujo, para realizar esto se utili- 
zan las flechas del cursor (sin nece- 
sidad de usar CAPS SHIFT, que en 
este programa se utiliza para ami- 
norar el movimiento de las figu- 
ras). 

El programa está bien desarro- 
llado dando un resultado bueno 


con las representaciones aunque 
tarde demasiado en moverse, asi- 
mismo resulta un poco incómodo 
de manejo el sistema usado para 
introducir los dibujos ya que resul- 
ta poco claro de compresión y rígi- 
do de manejo (una ampliación de 
esta parte del programa podría 
consistir en la posibilidad de retro- 
ceder en el eje z y poder borrar 
partes del objeto que ya estén defi- 
nidas, ya que actualmente sólo se 
pueden borrar cuando no se ha ter- 
minado de dibujar la parte infe- 
rior). 

El programa resulta útil para 
aquellas personas que deseen reali- 
zar representaciones de objetos tri- 
dimensionales a partir de planos y 
esquemas. 


puede, teniendo, claro está, tres 


cosas: una cámara cinematográfi- 
ca (Super 8, por ejemplo), el Spec- - 


lamado 


irum y un programa | 
VU-3D. 


En rasgos generales dicho pro- 
grama consiste en la creación de fi- 


guras tridimensionales de las cua- 
les, gracias a una serie de coman- 
dos, se pueden girar en todas 


Personalmente mi hobby prefe- sor. conecté el Spectrum, cargué е1 [о 


rido, aparte del Spectrum, es 


i PU su más amplio sentido, El 


pasado me encargaron una pe- 
lícula para la presentación de unas 
proyecciones de cine amateur. Me 
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"Entre desplazamientos es 
algo lento, pero las posibilida- 
des son enormes.” 


vino como caído del cielo el 
ué la cámara delante del televi- 
después de crear una 


D para mis propósitos, Colo- - 


figura me dediqué a filmar foto a 
foto cada evolución en pantalla. 


Los resultados fuero buenos 
aunque su duración total no pasara 
de los 45 segundos a de estar 
todas una tarde trabajando. Tengo 
que hacer notar que entre despla- 
zamientos | el programa resulta algo 
lento y más si se quiere rellenar o 
sombrear la figura. De todas for- 
mas las posibilidades dentro de 
este aspecto son bastantes y tan 
sólo limitadas por la creatividad de 
сада cual. 


Lo que parecía un programa de 
“inutilidad” se convierte de esta 
algo vivo e inédito y de 

nto. 


ntes de empezar а comen- 

tar la implementación del 

FORTH realizada en el 

Spectrum, conviene expli- 

car los fundamentos de 
este lenguaje. 

El FORTH es un lenguaje 
creado para ser rápido y que pue- 
da ser implementado en máqui- 
nas pequeñas. Su estructura se 


amente sólo ma- 
neja números enteros como el có- 
digo máquina, aunque llega hasta 
valores de 520090719, lo cual es 
realmente elevado, y también 
maneja tiras de caracteres y reali- 
za otros procesos sólo existentes 
en lenguajes de alto nivel. 

Su funcionamiento es una mez- 
cla de compilador e intérprete y 
funciona basado en una pila 
(stack) de tipo LIFO, es decir, tie- 
ne una zona de memoria donde 
se almacenan los datos secuen- 
cialmente, siendo el último dato 
escrito el primero en ser usado. 
Esta zona de memoria la amplía 
según lo necesite. El FORTH no 
se programa como entendemos 
habitualmente, lo que se hace es 
definir nuevas “palabras” y “dic- 
cionarios” que permiten ejecutar 
las funciones que uno desea. 

La versión de FORTH del 
Spectrum está diseñada para el 
aprendizaje ya que tiene dos ca- 
racterísticas no standard. La pri- 
mera es que está continuamente 
comprobando si se le pulsa el 
BREAK; esta característica, aun- 
que normal en el BASIC, no es 
normal en el FORTH; que es un 
lenguaje pensado para la rapidez 
y esta comprobación le hace per- 
der tiempo, aunque al usuario 
novato le permita equivocarse sin 
obtener resultados catastróficos. 
La segunda caracteristica es la 
existencia de una serie de pala- 
bras que permiten comprobar el 
estado del sistema desde dentro 
de una “palabra” que se esté eje- 
cutando. 

Para cargar el programa se si- 
gue el procedimiento habitual de 
LOAD” “CODE y una vez carga- 
do se ejecuta automáticamente. 
En la cinta viene, además, un 
editor de FORTH escrito en 


FORTH, que se carga desde den- 
tro del programa usando las pala- 
bras 1 LOAD. (debemos indicar 
que en el manual hay muchas pa- 
labras que vienen unidas; en este 
caso aparece ILOAD siendo in- 
correcto ya que el intérprete no 


10 comprende y dará error). 


Una vez puestos a trabajar en 
FORTH y con el editor cargado 
ya estamos preparados para escri- 
bir nuestra primera palabra: 

Tecleamos: 


: PRUEBA 999 0 DO I . LOOP ; 


Si ahora pulsamos ENTER y 
tecleamos PRUEBA (ENTER) 
veremos imprimirse en la panta- 
lla los números del 0 al 998 uno 
a continuación de otro y separa- 
dos por un espacio. Cada vez que 


usemos la palabra PRUEBA en 
una definición o bien usada di- 
rectamente se compflará o ejecu- 


tará respectivamente el bloque 
que acabamos de definir. Estos 
bloques no tienen porqué ocupar 
una sola línea, es más, este len- 
guaje tiene estructura libre y por 
tanto podríamos haber escrito 
una palabra en cada linea. Si no 
quisiéramos usar esta “palabra” 
nunca más y queremos que nos 
deje libre su espacio de memoria, 
bastará decir “FORGET PRUE- 
BA” seguido de ENTER, lo que 
le hará olvidar, no sólo la palabra 
prueba sino todas aquellas pala- 
bras definidas posteriormente en 
el mismo diccionario, así que ten- 
ga cuidado con lo que olvida. 

Un diccionario es una lista de 


palabras donde el ҒОКТН busca 
el significado de las órdenes que 
se le dan. El sistema nos permite 
tener varios diccionarios distintos 
a la vez. La razón de que se pue- 
dan usar varios o no uno solo 
donde englobemos a todas las pa- 
labras es que así disponemos de 
la posibilidad de tener bloques 
independientes (editor, ensambla- 
dor, nümeros reales, etc) que pue- 
den ser olvidados cuando no los 
necesitemos y queramos aprove- 
char su espacio. También nos 
permite disponer de palabras dis- 
tintas pero con el mismo nombre 
(una en cada diccionario); por 
ejemplo el diccionario FORTH 
tiene la palabra “Г” que lo que 
hace es poner en la pila la varia- 
ble de un lazo, mientras que el 


diccionario EDITOR tiene la pa- 
labra "I" que lo que hace es in- 
sertar textos. Para usar un diccio- 
nario u otro debemos escribir el 
nombre del diccionario que que- 
remos usar seguido de la tecla 
ENTER, el sistema nos hará 
abandonar el diccionario en que 
estemos ahora y entrar en el otro, 
a partir de ese momento sólo nos 
recomendará las palabras del 
nuevo diccionario. 

Para saber las palabras que te- 
nemos en el diccionario en el que 
nos hallamos, nos basta con te- 
clear “VLIST” lo que hará que 
aparezca una lista de todas las 
palabras en orden inverso al de 
introducción. Este listado puede 
ser parado pulsando BREAK. 

Para definir una palabra de la 
que sepamos que es correcta em- 
pleamos el siguiente sistema: pri- 
mero debemos teclear “;” esto in- 
dica al intérprete que se va a defi- 
nir una palabra. À continuación 
se escribirá el nombre de la pala- 
bra (máximo de 31 caracteres) se- 
guido de un espacio. Las siguien- 
tes palabras que se escriban ya 
será la secuencia de órdenes a 
ejecutar cuando sea llamada esa 
palabra. Al acabar la definición 
debemos poner un punto y coma 
para indicar que la definición está 
completa y devolver el control al 
intérprete. Recordamos aquí que 
las palabras FORTH deben estar 
separadas por espacios para su 
correcta interpretación por el sis- 
tema. 

Este lenguaje trabaja con cinco 
tipos de datos: 


€ CARACTERES Y BYTES: 
Ocupan 8 bits (1 byte). 

e NUMEROS CON SIGNO: 
Ocupan 16 bits y sus valores se ha- 
llan comprendidos entre -32767 y 
+32767. 

e NUMEROS CON SIGNO: 


Ocupan también 16 bits, pero va- 
rían entre 0 y 65535. 

€ NUMEROS DOBLES СОМ 
SIGNO: Ocupan 32 bits y están 
comprendidos entre -2147483647 
y 32147483647. 

e NUMEROS DOBLES SIN 
SIGNO: Así mismo ocupan 32 bits 
y varían entre 0 y 4294967296. 

En FORTH no hace falta definir 
explícitamente el tipo de dato que 
se va a usar, ya que la palabra im- 
pone el tipo de operando a usar, 
llegando incluso a usar cada una 
de las mitades de un número doble 
como número simple si así se lo 
pedimos. 

Las palabras básicas del 
FORTH se pueden dividir en blo- 
ques: Las de manejo de stack, arit- 
méticas, comparación, manejo de 
memoria y las de control, aparte 
de otras que no están definidas en 
ningün grupo. 

Las palabras de manejo de stack 
están pensadas para alterar el or- 
den lógico del stack o duplicar los 
datos. La forma en que un nümero 
se mete en el stack depende de su 
tipo, para meter un número simple 
(de uno o dos bytes, con 0 sin sig- 
no) basta con escribirlo entre dos 
espacios, los dobles (de 32 bits, con 
о sin signo) son introducidos con el 
mismo procedimiento, pero aña- 
diéndole un punto en cualquier 
parte del número, hay que aclarar 
que este punto no tienen ningún 
significado matemático y que el 
FORTH considera el número en- 
tero como si no hubiésemos puesto 
el punto. Los números introduci- 
dos pueden ser manejados median- 
te “palabras” previstas a tal efecto, 
las más importantes son: (ver figu- 
ral) 

DUP: copia el número que se 
halla en la parte inferior de la pila 
colocándolo detrás de sí mismo. 

ROT: gira los tres últimos nú- 
meros del stack. 

-DUP: ejecuta la misma acción 
que DUP, excepto cuando el nü- 
mero sea cero en cuyo caso no 
hace nada. 

: el punto imprime el ültimo 
nümero del stack y lo borra de 
éste. 

SWAP: intercambia entre sí los 
dos ültimos nümeros del stack. 

OVER: copia el penúltimo nú- 
mero en el final del stack. 


Llegó el FORTH 


Los operadores aritméticos, 
como su nombre indica, realizan 
Operaciones aritméticas con uno о 
dos números, borrando los орега- 
dores y escribiendo el resultado en 
su lugar. (Ver figura 2). 

+: suma los dos últimos números 
enel stack. 

-і resta el último número al pe- 
núltimo. 

%; multiplica los dos últimos nú- 
meros en el stack (¿qué se pensa- 
ba?). 

/: realiza la división del penúlti- 
mo número partido por el último. 

MOD: deja el resto de la divi- 
sión. $ 

/MOD: deja el resto y el cocien- 
te de la división. 

ABS: deja el valor absoluto (po- 
sitivo) del último número del 
stack. 

AND: realiza un Y lógico entre 
los bits de los dos últimos números 
del stack. Es decir, coge parejas de 
bits (uno de cada número) y si am- 
bos son 1 el resultado es 1, en cual- 
quier otro caso el resultado es cero. 

OR: realiza un proceso similar 
al AND, pero en vez de hacer un Y 


Figura 1. Palabras de manejo del stack. 


lógico, realiza un 0: si ambos bits 
son 0, el resultado es cero, en cual- 
quier otro caso el resultado es 1. 

XOR: similar a las dos anterio- 
res, pe: el resultado es 1, sólo si 
los dos bits son distintos (uno vale 
1 y el otro 0). 

Para comprender mejor estas 
tres últimas operaciones se han di- 
bujado en la figura 3 las tablas de 
verdad de estas operaciones, donde 
se pone el valor de los bits de en- 
trada y el de salida. 

Los operadores de comparación 
actúan sobre dos números reali- 
zando un proceso de evaluación 
matemática, es decir, miran si es 
menor, mayor, igual, etc., desde un 
punto de vista matemático y no ló- 
gico como son las tres operaciones 
anteriores. 

<: compara el último número 
con el penúltimo, borrándolos del 
stack y dejando 0 si el último no es 
menor y cualquier otro número en 
caso contrario. 

>: su funcionamiento es similar 
al anterior, pero ahora comprueba 
si el último es mayor que el penúl- 
timo. 


=: comprueba, de un modo simi- 
lar a las dos palabras anteriores, si 
los dos últimos números del stack 
son iguales. 

0<: compara el último número 
del stack con 0, dejando 1 si, efec- 
tivamente es menor que 0, y cual- 
quier otro número en caso contra- 
rio. Su funcionamiento es equiva- 
lente а escribir “0 <”. 

0= deja 0 si el último número es 
distinto de 0, y viceversa. Es equi- 
valente a escribir “0 =”. 

Hay que hacer notar que en 
ҒОКТН, al 0 nacido de una com- 
paración se le puede llamar “ban- 
dera falsa” o, abreviadamente, 
“Т”, y cualquier 0 puede funcio- 
nar como "ff". Los números dis- 
tintos de cero son llamados “Бап- 
dera verdadera” ("tf"). Más ade- 
lante veremos la utilidad de estas 
bandera». 

Para manejar la memoria (usan- 
do como intermediario el stack, 
como va siendo habitual) se usan 
las siguientes palabras: 


@: coge el último número del 
stack, lo interpreta como una di- 
rección, y mete en el stack el nú- 
mero de 16 bits contenido en dicha 
dirección, 

!: toma el penúltimo número del 
stack y lo almacena en el lugar de 
memoria apuntado porel último. 


Figura 2. Operadores aritméticos. 


DUP DUP +(SUMA) (RESTA) 
Antes Después a) Antes Después Antes Después Antes Después 
27 27 23 23 1512] 18648 15121 -11594 
534 27 15 23 3527 12 3527 12 
1212 534 15 12 12 
1212 
d *(PRODUCTO) / (DIVISION) 
мәне Деш Antes Después Antes Después 
> 2 323 2261 254 15 
125% d 7 391 16 49 
ROT OVER 391 49 
Antes Después Antes Después MOD /MOD 
1534 5223 1367 -534 Antes Después Antes Después 
5223 12 -534 255 14 255 15 
12. 1534 2220 16 49 16 l4 
515 515 49 49 49 
ABS 
SWAP a) Antes Después b) Antes Después 
Antes Después 25 25 -25 2 
294 -150 13 13 13 13 
D -150 294 
28 3 33 
L. 


Са; Su función es similar a la 
que realiza la @ , pero con la varia- 
ción de que el nümero leído es de 8 
bits y no 16. 

С!: almacena en la dirección de 
memoria indicada por el ültimo 
nümero el byte inferior del penül- 
timo número del stack. 

+!: esta curiosa instrucción coge 
el nümero almacenado en la me- 
moria indicada por el último nú- 
mero del stack, le suma el penúlti- 
mo y almacena el resultado en la 
misma dirección. Hay que indicar 
que las operaciones intermedias no 
modifican el stack, aunque, natu- 
ralmente los dos números usados 
para la operación son borrados. 

El último grupo de instrucciones 
del FORTH lo forman las de con- 
trol, estas “palabras” forman, qui- 
zás, la parte más importante del 
FORTH ya que nos permiten to- 
mar decisiones y obrar en conse- 
cuencia al resultado. Su uso se res- 
tringe a la definición de palabras, 
no pudiendo usarse directamente 
ya que dan error, por ejemplo: 


CUENTAMIL 1001 1 
LOOP: 


es legal, ya que estamos definiendo 
una palabra que será llamada pos- 
teriormente. En cambio: 


1001 1 DOLOOP 


DO 


Чапа el erro: "DO? ERR 
М5С +17” ya que le estamos pi- 
diendo que la ejecute de modo di- 
recto. En este punto cabe destacar 
que el BASIC del Spectrum sí nos 
permite ejecutar una instrucción 
similar: 


FOR I=1 TO 1000: NEXT 1 


sin dar error. 

Las estructuras de control del 
FORTH son las siguientes: 

DO LOOP: se escribe con el for- 
mato: 


(valor final +1) (valor inicial) DO 
(secuencia a ejecutar) LOOP 


Realiza la secuencia tantas veces 
como indique la diferencia entre el 
valor final y el valor inicial, cada 
vez que pasa por el bucle incre- 
menta el valor inicial en una uni- 
dad. La secuencia se ejecuta una 
vez al menos (incluso en el caso de 
que el valor final sea menor que el 
inicial). 

DO +LOOP: es de funciona- 
miento similar al anterior con la 
diferencia de que se le indica lo 
que se debe incrementar el valor 
inicial. Su sintaxis es del tipo: 

(valor final + incremento) (valor 
inicial) DO (secuencia a ejecutar) 
(incremento) +LOOP 

IF ELSE THEN: es una estruc- 
tura de bifurcación en la cual se 
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Figura 3. Operaciones lógicas. 


realiza una acción u otra en fun- 
ción de una condición. Su estruc- 
tura es: 

(condición) IF (secuencia a eje- 
cutar si la condición es cierta "tf") 
ELSE (secuencia si la condición es 
falsa “fP”) THEN 

La condición es un número (que 
puede ser el resultado de una ope- 
ración) que consideramos falso “fF 
si vale 0, y cierto “tf” en cualquier 
otro caso. 

BEGIN UNTIL: esta estructura 
ejecuta repetidamente una secuen- 
cia de órdenes hasta que se cumpla 
una condición. Se escribe con la si- 
guiente sintaxis: 

BEGIN (secuencia a ejecutar) 
(condición) UNTIL 

En este caso, al igual que los an- 
teriores y posteriores, la condición 
es un número del tipo “№” o "tf", 
además se ejecuta una vez aunque 
la condición fuese cierta desde un 
principio. 

BEGIN WHILE REPEAT:: esta 
estructura se escribe: 

BEGIN (secuencial) (condición) 
WHILE (secuencia2) REPEAT 
su funcionamiento es similar al de 
la anterior con la diferencia de que 
la condición de control se encuentra 
en cualquier punto de la secuencia 
y пол! final, saliendo del bucle por 
ese punto, por tanto si la ponemos 
antes de la secuencia, el FORTH 
mirará primero la condición y en 
función de eso ejecutará, o no, las 
instrucciones. Otra diferencia se 
encuentra en que para salir del bu- 
cle se tiene que cumplir que la 
condición sea "fT" (al contrario 
que en el caso anterior en el que la 
condición de salida es "tf"). 

BEGIN AGAIN: este bloque 
(también conocida como “piérde- 
te") ejecuta la secuencia infinitas 
veces (o hasta que lo paremos por 
la fuerza bruta). Su sintaxis es: 


BEGIN (secuencia) AGAIN 


LEAVE: esta palabra no lleva 
estructuras anejas, cuando se eje- 
cuta, da a la variable del lazo el va- 
lor adecuado para que el bucle ter- 
mine con el siguiente paso por una 
instrucción “LOOP” o “+LOOP”, 
En caso de que existiesen varias es- 
tructuras anidadas, sólo saldría del 
lazo más interno (ver figura 4). 


QUIT: esta es una palabra de 


к UR ELO DRE o DC RC ARR GT 


Llegó el ҒОНТН 


tipo similar a la anterior. Lo que 
hace es abandonar todas las estruc- 
turas y volver al intérprete 

Si usted quiere empezar a traba- 
jar en FORTH, le conviene definir 
lasiguiente palabra: 


ssi 

5Р@ $О@- 

-DUP0- 

IF 

CR. "STACK VACIO" 
ELSE 

so a 

DUPROT+ 

DO 


CRI? 
2 


Figura 4. Ejemplo del uso de LEAVE. 


+LOOP 
THEN; 


Su utilidad (fundamental para 
principiantes) nos enseña el conte- 
nido del stack sin modificarlo y en 
caso de que estuviese vacío impri- 
me “STACK VACIO”. Para aque- 
llas personas acostumbradas al 
BASIC u otros lenguajes similares 
les enseña como se modifica la pila 
en función de las operaciones que 
realicemos. 

Incluimos a continuación unos 
listados en FORTH y en BASIC 
indicando su tiempo de ejecución, 
para poder comprobar las diferen- 
cias entre ambos lenguajes. 


1) Contar de 1 a 10.000: 
BASIC: 

10 FOR I- 1 TO 10000: NEXT I 
(segundos) 

FORTH: 


: TEST 10001 1 DO LOOP; (se- 
gundos) 


2) Calcula los cuadrados de los 
primeros 1000 números impri- 
miéndolos. 


BASIC: 


10 FOR I=1 TO 1000: POKE 
23692,255 : REM Para que no 
pida scroll? 

20 PRINT Г2: NEXT I ( segun- 
dos) 


FORTH: 


: TEST 1001 1 DO I DUP M* D. 
LOOP ; ( segundos) 


оо 

o0 Y 
QUIT 
оо М 


LEAVE 


yoo QUIT escapo ol monitor 


LEAVE obliga el fin 
de DO.... LOOP 


— 1 
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Lograr un buen manejo de datos а 
| través de memorias externas, еп 
nuestro caso microdrives, es el 
gran sueño de cuantos hemos de 
luchar contra ingentes y 
desorganizadas cantidades de 
datos. Con este programa podrá 


grabar sus datos en microdrive o 
cassette, según la opción deseada. 


de base de datos 
para el microdrive 
principalmente, 
que le permitirá almace- 


e proponemos un 
| simple programa 


Möwe 
DUDO 
тттг 
ER 

a 

m 

a 

о 

к 

и 


паг е intercalar dos listas 


FLRSH 1;"ESP 
de ficheros. Unos ejem- ER 


бү GRDENAN-DO. 
plos posibles serían el 


1 
E 
T 20 
catalogar artículos de re- 39 TO c- 
vistas, listas de software ass 1) ‹=а P (1,i*1) THEN 
y nümeros de teléfonos. а 1171 
Teclee el programa tal 50 0 2: LET %шафі),і 
y como aparece еп el lis- ЕЛІН =а$(),:+1): ШЕТ 3$ 
tado, y pulse RUN 500 y ab XT у 
ENTER. Aparecerán las 70 
distintas opciones posi- so HEN GO TO 20 
bles. Veámoslas en for- БЫ 1 RETURN › 
ma resumida: 
99 REM na Para catalogar & 
Tcu note LL 
in 
1. Añadir al fichero dex.d" s А: 
119 сат. 
En esta opción habrá 158 HS 
de introducir el nombre 140 OPEN 
y los datos. A continua- 220 due 
ción se le pregunta si es- : IF eof 


tán correctos. Pulsando 
“5” podrá añadir más 
datos, “М” borra la últi- 
ma entrada y permite te- 
clear la entrada correcta 
y “F” finaliza la entrada 
y las intercalaciones de $33 
datos volviendo al menú | sj 

principal. 


мене 
ново 
SEGS 


2. Borrar el ficher 
gs 510 PAPER 1: BORDER 1: CLS : IN | Меш Opcionesdelprograma. 
K 7: PRINT AT 5,18; "© G.B. MONK": 
Teclee el nombre del Sio REH oP DE Т 
i Pciones пера! 
fichero a borrar. El | 859 BES ^ BRINT RT ANS ELIGE U 
nombre y los datos de МА OPCID! 
este fichero quedarán FICHEROS ANYADIR AL 
ашып 54@ PRI DELETE DEL 
FICHERO” 
550 PRINT RT 18,2; ' "B-BUSQUEDA/L 
ISTAR ELEMENT: 
560 PRINT AT 12,2; "B-IMPRIMIR F 
SPRINT AT 14,2 -IMPRESORA 
Р zi 5 
3. Búsqueda y "¿¿ON> AND pres) ABEER TAND Presa 
listado de elementos edades AT 16,2; "B-SRUE/LORD 
590 PRINT RT 20,6; FLASH 1; "PuL 
Teclee el nombre de Pi BP ERO ЕИ S 
la cadena a buscar den- > i" „ 
tro de la lista y todos los 9292 КЫДА, Е ЕО 
elementos que conten- 822 ВЕЕР .3,15: ELS : GO SUB 10 
gan la cadena se listarán. OBRVAL ks: GO TO 520 
Esta es una de las partes 
más importantes del 99 Rutina de altas del fichero. La 
programa, consecuencia 19d orbus eiusd AS 
del rápido algoritmo de FL ноб RANDOMIZE 
búsqueda que se descri- o я USR 3582 produce el 
be en el listado. Observe ÚRN ЖӨНДЕ malha La 
el bucle doble que apa- 121 bees des ле PU 
тесе en las líneas 3060 a | ST NO 


NO PROGRAME 
ESTE ORDENADOR 


World: Micro sa. 


] Avda, Mediterráneo, 7 
Tels. 251 12 00 - 251 12 09 
28007 MADRID 


Base 

de datos 
en 2 
microdrive 


4. Imprimir ficheros 


Se imprime el fichero 
completo, bien por pan- 
talla o bien por impreso- 
ra dependiendo de la op- 
ción que se haya selec- 
cionado en el punto si- 
guiente. 


5. Impresora 
ON/OFF 


Permite là obtención 
de informes por pantalla 
о por impresora. Inicial- 
mente se realiza la im- 


1020 LET с=с+1: REM incrementa e 
L contador del fichero 
1030 INPUT "Nombre? ";asil,c) 
1040 PRINT ЯТ 20,0;a5il,ci. 
1050 INPUT "Datos? "¡a$12,c) 
1060 PRINT AT 20,15,а%(2,с) 
1070 PRINT АТ 21,8,"0.K. 15/0) о 
Г p to STOP." 
1850 IF DULCE OR INKEYSz"N' 
THEN GO TO 1030 
1292 IF INK! gu "ОВ INKEY$z'S" 
THEN PRINT НТ 21,0; 
": RANDOMIZ 
E USR 3582: 50 TO 1020 
1100 IF INKEY$«»"p" AND INKEYS<> 
'P" THEN GO TO 1080 
1110 RANDOMIZE USR 3582: 60 SUE 
18; REM sort 
1120 RETURN 
1999 REM delete del fichero La línea 2030 produce un. 
2000 LET dzà: REM d=delete conta | espacio en INVERSE (CHRS 
dor 143), a fin de que quede 
8012 INPUT "Elemento a borrar”? " | colocado en último lugar la 
;d Н realización del Sort. Рог efecto 
2022 C ee n 94 THEN а de las líneas 2050 y 2060, se 
2; і) = Пата a la rutina de Sort y se 
;i)lsCHR$ 143: LET d=d+ je 
¿040 NEXT i decrementa el contador de 


2050 50 SUB 10: REM sort 
20560 LET с-с-а 
2079 RETURN 


archivos en una unidad, con lo 
que en definitiva se elimina el 
último fichero. 


2399 REM buscar e imprimir 
3010 INPUT "Elemento a buscar 7 
3020 PRINT AT 19,0; "Buscando a " 


3% 
3039 PRINT йрг;ЯТ B8,0;TRB 2; "EL 
EHENTD';TRB 22) РАТ TOS" 


La variable "t" permite saber 
si se ha encontrado el fichero. 
Las líneas 3050 a 3100 
constituyen la rutina de 
búsqueda. 


presión por pantalla. 
Presionando la opción 
5, aparecerá un mensaje 
en la parte superior iz- 
quierda de la pantalla 
"IMPRESORA ON" o 
"IMPRESORA OFF" 
segün el caso. 


3040 НЕМ LPRINT 

3050 LET 54-1 

3060 FOR t 

3070 FOR 15-іп 

3030 IF j. TO jeln)ss& THE 
N 3588: LET {=0: P 
RINT R 0;a$(1,i),a$i2,i) 
3090 NI 

31 NEXT i 

3110 RRNbohIZE USR 3582 

3120 IF 1=1 THEN PRINT RT 21,0; 
No existe UE elementa. А 
І2Е USR 35 

3130 IF Ep OR t=1 THEN PRINT Я 
T 81,0;"Pulse s cuando este List 
fads IF INKEY$:»"S" THEN GO TO 3 
iso 

3140 RETURN 

$999 RI ir fichero Impresión del fichero. 
4000 P ВТ 290,0; TRB 4; "Е 
EMENT" “DATOS” 

4010 I EN LPRINT 

4920 Р с 

4030 R USR 3582 

4040 P АТ 21,0;a$íi1,i),a 
$i i) 

4050 М 

4060 P PAUSE 109 

4070 R 

4999 R ога on/off Posibilidad utilización 
5090 I EN LET рг=3: PRIN | impresora. 
ср T: PAUSE 1: PAUSE 
5010 I THEN LET pr=2: PRIN 


6. SAVE/LOAD 


Con esta opción se 
permite el almacena- 
miento del programa y 
los datos en cassette o 
microdrive. Si se elige la 
opción del microdrive se 
comprobará si ya existe 
en el cartucho, así como 
la existencia de espacio. 
suficiente para la graba- 
ción. La rutina a catalo- 
gar еп 7% hace estos ра- 
505 y comprueba los po- 
sibles errores. 

Con el formato actual, 
el programa se puede 
utilizar para guardar ti- 
pos múltiples de datos. 


ELIGE UNR OPCION 


-ANYROIR AL FICHERO 
-DELETE DEL FICHERO 
Il-BUSQUEDR/LISTRR ELEMENTOS 
-IHPRIMIR FICHERO 
-IMPRESORA OFF 

-3AVE/LOAD DATOS 


Pulsa el NUMÉRO deseado. 


Menü de opciones (líneas 519 
a 580) 


45015 
tiago 


Ejemplo de impresión por pan- 
talla o impresora. según opción 
elegida. 


Sin embargo, el progra- 
ma es muy manejable e 
incluye una potente ru- 
tina de búsqueda. Esta 
rutina (líneas 99 a 210) 
puede resultar muy útil 
para incorporar en sus 
programas que utilicen 
microdrive. 


Т ZIMPRESORA OFF“: PAUSE 1: PAUS 

Е әй: URI 

5999 REM savesL Opción cassete o microdrive. 

5000 PRINT AT 274) "ELIJA OPCION" 

5010 PRINT TAS 4; “M-CASSETTE"*' 

6820 PRINT TAB 4; B-MICRODRIUE" 

6232 LET KS-INKEY$ 

5042 IF 8459715 AND kso "а" THEN 

GO TO 56038 

5050 IF k$="2" THEN 60 TO 5500 

8253 REM cassette Rutina grabación en cassette. 

552 CLS 

5070 PRINT "Prepare el CASSETTE 

de datos 

5030 PRINT "Desconecte EAR." 

5090 SAVE "Data Base" LINE 510 

8108 ČLS 

6110 PRINT "Verificacion, Rebobi 

пе (а cinta y conecte EAR." 

5120 PRI i Нач algun error " 

"бото баба ^^" 

5130 PRINT "Ponga en marcha el c 

assette." 

6140 VERIFY "Data Base" 

8150 PRINT "О.К. 

6182 PAUSE 1: PAUSE 200 

5170 RETURN 

5499 REM microdrive Rutina de grabación en 

6500 CLS : PRINT " Numero del dr | microdrive. 

ive ? 11-6)": FOR ізі TO 58: МЕХ | Líneas 6300 6570 permiten 
i identificación d 1 

S828 SE ASI I OR ko "8" THEN со morire Тато n 
20. eut "а" GO | Línea 6590: llamamiento a la 

e530 СЕТ d=UAL ks Е 

5540 CLS : PRINT " Numero del dr | разінсаз 661086000 

iv vi ^ 

S850 INPUT " Nombre del fichero [O 
2055 i 

Боза A OR LEN sss тн РЕ 

© 59 x 

5879 PRINT "Nombre del fichero: | grabacióndel archivo- | 

"E La comprobación sobre el 

5582 P RINT *'"Сечепдо et catalog [E 
n pere" inea graba el archivo. 

8532 Bb Sue 180, Si el nombre dado ya exi 

B еп el cartucho, se preguntar si 

85180 LET se produce la actualización de 

S659 IF z la información contenida bajo 

HN el mismo nombre (6800), у si 

5520 A т а оа 
5 anterior (6850) y se graba en el 
à IFs EN GO T nuevo archivo. 

6670 IF U (38 THEI 

hay espa ufician 

1: PAUSE RETURN 

6880 PRINT "Grabando "is 

5592 SAVE _«"n";d,s$ LINE 

8700 PRINT 3%; " Grabado." 

6712 PAUSE 1: PAUSE 108 

6720 RETURN 

6802 PRINT #1; ЯТ 0,9; "El fichero 

Ша оез те Lo susti- rais/n)" 

sólo LET K&sINKEYS 

6322 IF k$5"N" OR k&s"n" THEN RE 

TURN 

8822 IF k$0"5" OR k$o"s" THEN 

50 То 6810 

5840 PRINT "Воггапао Fichero "js 

5550 ERASE "п"; 1;5% 

6882 50 TO 6850 

9899 CLEAR : ERASE "m"¡1;"Dbase 

2.3": SAVE +"n"¡1;"Dbase 2.3" 


Uno de los mayores placeres de cuantos nos dedicamos 
al periodismo, es poder escribir los artículos con un buen 


editor de textos. Por eso, cuando empezamos a trabajar 


con el Tasword, en seguida quedamos prendados de la ver- 
satilidad con que nos permitía escribir. Cuando аізейатов 
un interface para la impresora, con el que trabajar de for- 
ma profesional, el ordenador empezó a mostrar un funcio- 
namiento anómalo... ¡El editor había encontrado su com- 


pañera ideal! 


“ы. 


al editor 


la impresora 


En el número anterior se descri- 
bió la construcción de un econó- 
mico interface CENTRONICS 
para impresora. El objetivo de este 
articulo es explicar las modifica- 
ciones que habremos de hacer en 
el Tasword, editor de textos 
comentado igualmente en el ante- 
rior número, para poder usarlo 
con el mencionado interface. 

Dado que la información que se 
ofrece con el Tasword (o Con- 
text en la versión española), sobre 
los códigos de control de los inter- 


faces es а todas luces insuficiente 


para nuestros propósitos, se hacía 
necesario la realización de un pro- 


grama que gestionase la salida de 
textos a impresora. La ventaja que 
esto supone es la de permitirnos la 
obtención de hojas impresas más 
acordes con nuestro gusto y, de 
paso, solucionar el siempre pre- 
sente problema de las ейез. La fi 
no existe еп сі inglés, por ello re- 
sulta muy difícil encontrar eñes en 
los teclados de los ordenadores. 
Para imprimer la “й”, haremos 
uso de las posibilidades gráficas 
que ofrecen las impresoras de ma- 
triz de puntos. Se puede decir que 
vamos a hacer un dibujo de la le- 
tra. Siempre que queramos que 
aparezca una ñ habremos de utili- 


zar algún caracter no usado. No 
haremos que aparezca en pantalla, 
pero podremos estar seguros de 
que aparecerá impreso correcta- 
mente en el papel. En este progra- 
ma se ha usado la à, ya que apenas 
se utiliza. Solamente hemos defini- 
do la й minüscula porque una pan- 
talla Пепа de @ y + podría dar lu- 
gar a muchos problemas de inter- 
pretación. En cualquier caso la 
modificación que habría que hacer 
al Programa no sería muy proble- 
mática. 
El archivo de texto 

En primer lugar, es fundamental 
conocer cómo el Tasword dis- 


tribuye la información escrita, es 
decir, de qué manera el texto se es- 
tructura dentro de la memoria del 
ordenador. Afortunadamente para 
nosotros es extremadamente senci- 
По. 

La dirección de comienzo de la 
zona reservada al texto ("text buf- 
fer) puede conocerse fácilmente 
haciendo PRINT PEEK 62216 + 
256*PEEK 22217 y da cl valor 
32000. Cuando estamos trabajan- 
do en BASIC y queremos conocer 
la longitud del texto, nos basta con 
escribir PRINT A. 

Si con estos datos investigamos 
en el que hemos llamado text buf- 


fer y tenemos en cuenta que una lí- 
nea está compuesta de 64 caracte- 
res, llegaremos a las siguientes 
conclusiones: 


—El texto se almacena en me- 
moria en forma literal. Por ejem- 
plo, a una línea en blanco corres- 
ponden 64 bytes con el valor de 
32, valor del espacio segün el códi- 
go ASCII. Si se usan márgenes, las 
bandas laterales vacías se rellenan 
de espacios. Los símbolos gráficos 
están representados por el valor 
correspondiente segün el juego de 
caracteres que usa el Spectrum. 


--Мо existen códigos de control 


(fin de línea, salto de página, 
ес...) 

Бе esta manera, рага imprimir 
un texto habremos de mandar a la 
impresora los nümeros que encon- 
tremos en el rext buffer, en bloques 
ión dar la or- 
den de imprimir y avanzar el pa- 
pel. La ünica excepción lo consti- 
tuyen: 

—Los caracteres gráficos: dare- 
mos al interface unos valores dife- 
rentes según el significado acorda- 
do para cada carácter. Por ejemplo 
si encontramos un № , que significa 
que debemos empezar a escribir 
caracteres a doble anchura, la im- 
presora debe recibir el número 
OEh, (14 en decimal, cuyo mne- 
mónico es SO,Shift Out). 

—Та@: en vez de mandar el nú- 
mero 64 (que supondría imprimir 
dicho símbolo), debemos pasar al 
modo gráfico (enviamos los códi- 
gos de ESC К (27,75) y a continua- 
ción, indicamos el número de pun- 
tos que va a tener el gráfico a lo an- 
cho (a lo alto es invariablemente 
8). 


El programa en ENSAMBLA- 
DOR 


En la figura 1 se ve un organigra- 
ma simplificado del programa. 

La impresora usada, la MX-70, 
cuenta únicamente con la “exquisi- 
tez' de caracteres a doble anchura. 
Para impresoras más modernas 
podemos hacer subrayados, carac- 
teres en cursiva,... 

Las posibles modificaciones al 
programa de control son sencillas 
y se explican más adelante. 

El programa definitivo muestra 
la estructura que se plantea en la 
fig. 2. 

Se ha preferido que la cabecera 
de la hoja se imprima desde el BA- 
SIC ya que es este el lugar que más 
“toques personales" puede recibir 
y en consecuencia debe poder 
cambiarse fácilmente. 

Así, es que, cuando se ha impre- 
so una hoja, el control del progra- 
ma pasa al intérprete BASIC que 
se encarga de imprimir el número 
de la página y de dejar las lineas en 
blanco necesarias. 

Por ello siempre que volvamos 


Si le interesan los montajes 

y realizó el que le proponíamos 

en el nümero anterior 

sobre el interface CENTRONICS, 
esta es su oportunidad de incorporar 
un poco de software para sacarle 

el máximo rendimiento. 


al BASIC será necesario guardar la 
dirección del carácter próximo a 
escribir. El lugar donde se guarda 
este número es lo que hemos lla- 
mado HLSAVE. Después de estos 
dos bytes de reserva, tenemos la 
subrutina PRINT, la encargada de 
gestionar el intercambio de infor- 
mación con el interface (la buro- 
cracia). Es idéntico al que se expli- 
có en el artículo dedicado al inrer- 
face, por lo que no requiere más 
comentarios. 

А continuación encontramos el 
conjunto de nümeros quc hay 
pasar al interface para que escriba 
una ñ, Lo hemos llamado ENNEG 
por aquello de Gráficos de la 
ENNE. 

El programa 1 se'usará para in- 
troducir en HLSA VE el valor de la 
dirección de comienzo del texto. 
En consecuencia solo se utilizará 
una vez al empezar a imprimir un 
documento. 

El segundo programa será el de 
uso general. Se pasa a describir a 
continuación, en la fig. 3. Paralela- 
mente ofrecemos un diagrama de 
flujo ya más detallado. 

El registro C se ha usado como 
contador de las líneas que quedan 
por imprimir. El valor que toma 
Inicialmente podrá cambiarse (ver 


programa en BASIC). Después de 
inicializar la C, se “imprime” un 
número de espacios correspon- 
dientes al margen izquierdo. Tam- 
bién el número de estos espacios 
puede alterarse. 

El registro B contendrá el núme- 
ro de columnas por página (64 en 
el Tasword). Se hace uso de la 
cómoda instrucción DINZ.A con- 
tinuación se observa si el carácter a 
imprimir tiene un código por de- 
bajo de 32 (esto debería ser im- 
posible), en cuyo caso volvere- 
mos al BASIC para informar del 
error. Bien podría ocurrir que tu- 


„viéramos caracteres gráficos. Si así 


fuera comprobamos si se trata de 
alguno de los dos que funcionan 
con nuestra impresora. En caso de 
usarse otra que admitiera otros ca- 
racteres de control, podremos am- 
pliar el programa en la misma filo- 
sofía, esto es: 


LD A, Código del gráfico 
CP (HL) 
JR NZ, OTRO 
LD A, Código impresora 
JR ENTRYI 

OTRO LDA,... 


Otra posibilidad es que nos en- 
contramos con 1а@. En este caso 
enviaríamos a la impresora los da- 


Eee PROGRAMA LIE CENTRE opo саны сы сты ЖЕНЕ 


200>REM UB _ 400: LET A=55: GO SUB 400: LE 
819 CLS | T_A=UAL R$: GO SUB 408 a 
220 LET_A$="D3 S0D3DFDBDFESY 272 INPUT “Comienzo en pagina 
125F 09184895008 В21Е922Б08Е32 ATA $2 A THEN 
22258092802582Е30085283Е2900022581 274 LET PRGIURL R$-1 - 
eF9306403EIFBESO 7EBES3B423E40B 230 PRINT ЯТ 20,0; FL 
Ез8207Ес0025823 Apri SPACE рага P 
230 LET 8%-88%"12ЕВЗЕОВООФ25БЗЕ "885 BzFN р (52216) 
QFDBFEIF3804220 33E008C300720 KE 3 INT (87256): 
Ғ570ЕЕ0238Е29020023Е00С0225В18Е6 ¿8-2 Т 08/256): RAN 
DIVS5VILIVFSBIAC B1310F9091807 к a3 A 
ЗЕЗЕБЕ20043Е2Е1. Е818Е202С83Е14 299 I=1 TO GUARD/54/LIN+1 
5% 2; POKE 2 5% 851209322 СЕТ A scone 
240 FOR Ізі TO A572; z : E " 
32974I,184FN Hi 1-1) «FN НСА р B 422: NEXT J: 
$(2*51)): NEXT I DE" О SUB 400: LET AS=5TR 
| 250 DEF FN Н(08) аСООЕ Ug-CODE " (Тұр FOR J=1 ТО LEN A$: 
Q'-7*(Ugo"9") Еи] GE: SUB 420 
250 INPÜT "Comienzo columna, (8) : LE ODE "="; G0 SUB 
| Ag LIE Ago THEN LET Ава"е" ШЕ O SUB 400: LET A 
262 PÜKE 2 1 E 
254 INPUT “Numer Lineas por 320 OT USR 23327 THEN NEXT 
pagina (8Q)";R$: $z"" THEN EIL GUARD: GO TO 25 
"Ee fer b әке 23331, THEN Втр P1 SQ. PRINT AT 
T LINSUAL AS: ў .1,30: N 
LER? LET ЕВ ТҮНТ "8207010, 18,1 ASH 1; “ERROR”: ST 
258 INPUT “separacion entre Lin 348 A2GUARD: GO TO 25 
&as"'" NORMAL: 12" *( COMEND . (" 400 OUT 255,8: QUT 223,128 
ESP 0") A$: IF Ags" THEN LET 410 LET A=IN 223: IF AS2RINT (A 
AS=STRE_ESP /21 THEN GO TO 410 
358 BÉ GUARD=A: LET Я=27: GO 5 420 RETURN 


—— 


Del 16 al 23 de Noviembre de 1984 


ESTAREMOS 
EN EL SIM 


Stand-D-168 Stand-E-14 
PABELLON XI PABELLON XII 


Fig.1 кы Fig. 2 


sea] 
EL, SALE 


BGE 
FEOF] 
ЕМНЕ 


ENVIAS 
conso 


DIBUJAS 


envias 
conso 


tos correspondientes a la ñ. Si qui- 
siéramos definir la ñ mayúscula, 
deberíamos comparar de nuevo si 
se trata del carácter correspon- 
diente, y enviar los números ade- 
cuados. 

Si no ocurre ninguna de estas si- 
tuaciones, se imprime el carácter. 
"B Comprobamos si hemos acabado 
la línea. En este caso, daríamos a la 
impresora el código de imprimir y 
avanzar el papel. А continuación 
muestreamos la tecla BREAK. Si 
se estuviera apretando, volvería- 
mos al BASIC. En caso contrario, 
comparamos la dirección de la le- 


$49 COLUMNAS 


RETORNO ог 
CARRO, 


TO OOOO ` IAS AAA A A A d 


Hn $00025 ; donde LONG GRRFsaSexniena 
i Hb HE Hr pre 90929 DEFB 101111198 
903 2 «ek TRSUORD ТІ Әне 90930 DEFB 101000008 
00002 H ннан УН 00031 DEFB 101000008 
0200 08032 DEFB 200111108 
20006 ; Q Luis Miguel BRUORROLAS 00033 СЕРВ 000020008 
00007 00034 
00008 00035 PROCOL LO ML,(62216) 
90009 ғ EQU да, (Рогт Feed ‚зало 90036 LD  (HLSAVE) HL 
99010 ; papi 29037 ВЕТ 
$i ir — у i Line р 00038 
95012 ; imprimir (inea y avanzar 94432 PROG2 LD Нее Я 
$0013 ; papel 40 LO 6,80; Num Lineas/hoja 
09014 00041 
00015 00042  NEULIN LD B,6;Num espacio/ho ja 
92016 HLSRUE ОЕР 2 00043 A 
92017 90944 CALL PAINT 
018 PRINT QUT (258), 90045 DUNZ MARGEN 
00021; 0 00046 
[tH бт я 00067 LO  8,64;NUm coLumn/ho да 
QU Loop Шода 00045 NEULET LO A/31 
00022 AND 1 90049 СР (HL 
92023 JR 2,L00P 90050 JR NC, BASIC;ERROR, cod. 
00024 RET 00061 ; по valido 
00025 90052 LO 8,126 


$0026 ENNEG DEFB 25, К 99053 (HL) 
Фф027 ; Codigo de de eit" R, «ng», «ni» 00054 JR  C,GRRF;TaL vez GRAF 


x] tra sobre la que trabajamos con la 
Fig.3 de final del texto. Si coincidieran, 
volveríamos al menú del Tas- 
word. En otro caso, continua- 
ríamos hasta acabar con la página. 
ГЕ Entonces volvemos al BASIC, esta 
vez para imprimir la cabecera, y de 
iL nuevo pasamos el control de la 
ut ERAS operación a este programa. 
A Ss ste y 
E 
Modificaciones al Tasword 
Si bien es muy interesante cono- 
„cer el programa anterior, no es en 
absoluto imprescindible para po- 
der usarlo. А continuación vamos 
| a explicar los cambios que tene- 
| mos que hacer al Tasword para po- 
| der usarlo con nuestro interface. 
--Саграг el Tasword en el 
ordenador. 
—Borrar todas las líneas de BA- 
SIC entre 200 y 490 (inclusive). 
—Eliminar las líneas 45, 160, 
660. 
—Modificar las siguientes lí- 
neas: 
20 INK 7:PAPER 0:BORDER 
КҮТЕ 0:CLS:LET A=... 
-- а > 1251Е B-116 THEN LET I-14 
niger 170IF B-98 THEN LET I-16 
Nu 610 IF B=121 THEN INK 
susc O:PAPER 7:CLS:GOTO 10 
—Escribir el programa 1, y com- 
02055 QD me 90003 ; Parte baja direccion fin 
00056 CP (AL 90064 ° JR C BASIC 
00057 JR ¿bes Es (а елһе 00085 М. 52 қ 
00058 Lo HL) 99286 
00059 ENTRY) CALL PRINT 04287 US MAP Batto de pag 
99060 ENTRYE ING 1088 CALL PAINI Nt 
90061. 2 лет 989 JR 
$9062 20090 
900963 D R,LF;Imprimir 00091 ЕМНЕ EXX 
00064 L PRINT 920% } 
00065 0009 LO DÈ, ENNEO 
90066 ¡Volver a BASIO si se Һа pulsado 00094 DOTS Ке A, (DE) 
00067 —¡BREPK 20095 L T 
90066 LO #@ЕН 99056 INC 
99069 IN Я, (ФРЕН) Pd 2 0075 
92070 90 
E. JR  C,CONT H ENTRY&R 
00073 BASIC LO (HLSAVEJ HL T3 ОВАР Ыр 9,14 
90924 RET 210 (НГ) 
99075 90103 N2, NORBR 
2/9 CONT LO  R,ü;Hacer POKE con 154 LD A,L4;Cod car DOBLES 
077 ; parte aita direccion fin 5 JR ENTRYA 
90078 P X 1106 NORBR LO 1,129 
00079 JR Мм, 107 бр (8 
99080 JR Қаш 108 JR 


N2 BASIC 
prd iD AL 00109 Lb Қ(0 caract мови 
082 СР @}Масег POKE соп 00110 XR ENTRYL 


probar que está correctamente es- 
crito. 

—Grabar el programa en BASIC 
en cinta, y comprobar. 

—Descansar por el esfuerzo rea- 
lizado. 

—Cargar el programa en BASIC 
grabado previamente y después el 
programa en código máquina ori- 
ginal. 

—Grabar de nuevo. 

Tal vez pueda parecer algo raro 
los últimos pasos pero pueden sur- 
gir problemas debidos a la falta de 
memoria si no se siguen correcta- 
mente. 


Funcionamiento 


En cuanto al funcionamiento 
del programa solo hay que decir 
que en las opciones que se piden, si 
queremos el valor entre paréntesis 
es suficiente con apretar ENTER, 
Si resulta muy latoso dar todos los 
datos se pueden eliminar los IN- 
PUTS que cada uno considere ne- 


SUFTURRE 
CENTER 


Avda. Mistral, 10, 1.* D esc. Izda 
BARCELONA-15 


183] 432 07 31 


cesario, o bien cambiar los valores 
por defecto. 

Una ültima anotación. AI selec- 
cionar la opción de impresión se 
observa que la pantalla aparece 
negra algün tiempo. Mientras tan- 
to se introduce el código máquina 
en el buffer de impresora. Ha de 
realizarse cada vez para estar segu- 


TOS de que va a continuar en este 
sitio ya que otras opciones del 
Tasword usan la misma zona 
de memoria. Con un DATA la 
transferencia es mucho más rápi- 
da, pero ocupa mucha más memo- 
па... 


Luis Miguel 


Aventura 


V. Castellano. 


DRE WULF 


Р ысу 1. x 
PAREJAS 
Habilidad y educativo Utilidad 


1790 pts 


| PROFESOR DIETETICO 


COMPTES - CUENTAS 


2.495 pts 


Contabilidad familiar 


2.495 pts 


AGENDA PERSONAL 


Utilidad 
microdrive 


3.300 pts 


JUEGOS OLIMPICOS 
«BARCELONA 1392» 


Simulacion y habilidad 


Utilidad 


[ 
| 
| 


[ 
FICHERO PERSONAL 


microdrive 


3. 300pts 


ARCHIVO 


Utilidad 


1.655 pts. 


CALC 


Utilidad 


TAHUR 


| 2.330 pt 


Azar y simulación 


BASIC 


Educativo 


2,225pts 


2.350 pts 


SCANGRAPH 


Utilidad 


2.350 pts 


COBALT 


| Simulador de vuelo 


2.500 pis 


MANAGER 


Simulacion 


TRATATEXT 
Utilidad 
microdrive 


3.000 pts 


z 
3.300 pts 


CONTABILIDAD GENERAL 
Gestion 
microdrive 


„2, ФО, Lo. Ги коими O EN i 


En el programa Базе! del nú- 
mero dos no reconocemos los ca- 
racteres empleados en las instruc- 
ciones POKE de la línea 50. ¿Es un 
fallo de impresión? 

Luis Matienzo 
Madrid 


Se trata de caracteres definidos 
por el usuario (UDG). Repetimos 
esta instrucción previamente a su 
definición, donde puede verse que 
los caracteres empleados se puede 
acceder fácilmente presionando A, 
B, y C en modo gráfico. 


dame mein 
R Вай. РОК MT EC UTE 
LET kSs"ABC" 


dada шанада e 29 7 Аа азак 


Veo соп agrado еп е! nümero 
2, un esbozo de programas en 
FORTH y PASCAL. Los «сіепіїћ- 
cos de por libre» como es mi caso 
veríamos con mucho agrado una 
sección dedicada al FORTH y 
PASCAL. José Perona 


Murcia 


En este mismo número hace- 
mos una breve introducción al 
FORTH. Una serie de artículos 
Sobre este tema comienza precisa- 
mente en este mismo mes en la re- 
vista ZX. Si está interesado en el 
PASCAL, esperamos verá con 
agrado la serie que abrimos sobre 
este lenguaje en el próximo nüme- 
ro de TODOSPECTRUM. 


¿Te gustaría pasar tus programas preferidos a Microdrive? 
¿0 hacer tus copias de seguridad en cassette? 


HAZLOCON FRANS-EXPRESS 


SI TE INTERESA LA 
ELECTRONICA 


Resuelve los problemas de: 
| Diseño de filtros 
| Análisis de redes 
Comunicaciones por 
ionosfera y por satélite 
Antenas y acopladores 
Lineas de transmision 
Bobinas y transformadores 
Interferencias etc. 
Con mas de 100 PROGRAMAS 
TECNICOS, perfectamente 
documentados en castellano, 
con ejemplos practicos. 


1) CASSETTE A MICRODRIVE 
2) CASSETTE A CASSETTE 


3) MICRODRIVE A MICRODRIVE 
4) MICRODRIVE A CASSETTE 


TRANS-EXPRESS te permitirá transferir cualquier 
programa para tu Spectrum de 16 ó 48 K. 
TRANS-EXPRESS llega hasta donde 
programas similares no pueden hacerlo. 
TRANS-E XPRESS transfiere programas en Basic, 
Código Máquina o mixtos; protegidos o no; con o sin 
encabezamiento y podrás transferirlos de “una sola vez”. 


Haz tus pedidos a: 


(ГЕНГТІЕІЛІГІІ ГІ 


Calle Pelayo, 12 -1°-- 08001 BARCELONA 


>< Tel. (93) 301 47 00 Ж 


copias de TRANS-EXPRESS al precio 
importe lo abonaré por: 


В 


Operativos en ordenadores: 
HEWLETT PACKARD serie 201 
ZX Spectrum 48K 


Consultar para otros 


Asistencia técnica post venta = de 1.600 Ptas. 


Talón nominativo adjunto. 
Contra reembolso. (Más gastos) 


. Apellidos 


Pide información а: 


SOFTRONICA 5.5.9 


C/José Abascal, 52 Tel. (91)44138 46 
MADRID 28003 (91) 450 18 24 


LENS ORI IAEA 


Nombre .. 
Dirección .. 
CP.. 


adelante o hacia atrás, 
puede moverse horizontalmente, 


lo cual le айаде una mayor com- 
plejidad. Una vez que se llega a la 


Con 48K, un poco de habilidad 
y algún que otro susto podrá llevar 
а casa а su rana favorita. Para 
ello ha de evitar ser atropellado en 
la carretera, teniendo en cuenta 
que a partir de la tercera fila de co- 
ches sólo puede desplazarse hacia 


pero no 


parte central podrá tomarse un 
poco de respiro antes de meterse a 
la aventura acuática. Sobre el río 


van unos troncos y dos filas de tor- 
tugas traviesas, especialmente la 
segunda, que les gusta sumergirse 
de vez en cuando. Lógicamente ha 
de alcanzar el extremo de la panta- 
lla saltando sobre las tortugas y 
troncos, lo cual no resulta fácil. 

Los gráficos están muy bien lo- 
grados y es bastante rápido, resul- 
tando difícil de creer que esté reali- 
zado en BASIC. Otro aspecto de 
destacar es su buena estructura- 
ción: 
Líneas 10-20 

Inicialización del programa (s = 
puntuación, li = vidas y h() es la ta- 
bla de records). 
Líneas 30-50 

Inicialización posterior (fr = casa 
de la rana, t - tiempo restante. 
y “b” = coordenadas de la rana). 
Líneas 60-67 

Comienzo del bucle principal. 
Se reduce el tiempo (t), impri- 


е8 ELSE gii PRINT AT 0,18; т 
P o вв NK в; 
1 o О р To pren, Сон, | 
= 51): 
E prol (ARA ET ВХ I9 ЫП и 
1 E 254 ЕТІГІН 
кия, 1000€ жиям 0064 egreso ТО Jrenci): LET gseotia 
“Se PRÍNT PAPER s;nT 3,0; INK Ø 
-—— — j i 
«ия им гаф: АТ 5,0; INK 2; bW; RT 7,0; INK 
Oas; AT 9,0; INK в; 6$ 
95 ВЕЕР .005,-15 
128 PRINT PAPER @; АТ 13,0; INK 
7 ¡es ¿AT 18,0; INK 2;hsAf 17,0; 
INK Зав: АГ 19,0; INK 2h 
110 {F азз_ OR am? THEN Қам 
1; d b"31 THEN GO ТО 32 
118 IF as15 OR азо THEN LET b=b 
-1: IF вай THEN GO TO 3000 
120 00 SUB 202 
г43@ IF INKEYEE'7" THEN 00 TO 10 
leg ТЕ INSEYE= B" OR INKEVA="S" 
THEN Go SUB 300 
5 REM skkx de 150 IF аяз OR a»? OR (a»11 AND 
% а(21) THEN PAPER à 
* FROGGER 4 181 IF азб OR a» THEN PAPER 2 
H * 158 IF а=11 OR а=21 THEN PAPER 
222222222222) 1 3 PRINT А up 
15 j 
10 DIM Һ(6): GO SUB 9000; REM 188 ТЕПЕ THEN bo sue 1 
Comienzo 522 
So LET seo; БЕТ 18@ 90 TO 62 
38 8D SUB 25 87 REM Nive 202 IF а=21 OR а=11 THEN RETURN 
43 GO SUB 7900; REM Pantalla 201 60 TO гйаға 
50 LET 12100: 22i; LET ba 208 RETURN 
16: PRINT RT M ET 87% LJ 203 IF a$(b«1)s" " THEN GO TO 3 
бә REM Bucle Principal әдд 
55 ВЕЕР .QÀ5,-15 204 GO TO 282 


Y 


miéndose su valor en la pantalla. 
La línea 67 comprueba si ha finali- 
zado el tiempo. 


Líneas 70-120 


Rutina de movimiento. Las lí- 
neas 70 y 80 actualizan los valores 
del string para simular el movi- 
miento de izquierda a derecha y de 
derecha a izquierda. Las líneas 90 
a 100 imprimen los objetos en sus 
nuevas posiciones. Las líneas 110 
y 115 verifican si la rana se en- 
cuentra encima de una tortuga O 
encima de un tronco. 


Lineas 130-180 

Rutina de movimiento de la 
rana. Comprueba si se ha presio- 
nado una de las teclas del cursor 
para desplazamientos a la izquier- 
da, derecha, arriba o abajo. El co- 
lor del PAPER se activa depen- 
diendo de la posición de la rana. 


Lineas 200-219 

Rutina de verificación de la 
rana. Detecta si ha chocado con un 
coche о un camión o si ha caído al 
agua, en cuyo caso se pasa el con- 
trol a la rutina de muerte de la 
rana. 
Lineas 300-330 

Rutina que comprueba si la rana 
todavía se encuentra en la panta- 
lla, incrementando o decremen- 
tando "b" si el movimiento es ha- 
cia la izquierda o derecha respecti- 
vamente. El color de PAPER se 
activa dependiendo de la posición 
de la rana y la línea 320 imprime 
la rana en la nueva posición 
Líneas 1000-1090 


Rutina de movimiento ascen- 
dente de la rana. La línea 1015 
comprueba si se ha llegado al final 
de la pantalla. La linea 1017 llama 
a la rutina de “choque con obie- 


ОМ, 


205 IF Ь8(ь+1) =" " THEN GO TO З 4062 LET $ +8230: BRINT RT 9, 15-Е 
РЕ NOSTRA PAPER 5; INK @;% 

226 GO TO 202 1292 9 в@ 

807 GO TO 203 1509 IF Ой а=7 OR (а›11 AND 
299 GO TO а‹81) T PAPER Q 

213 IF e$ " THEN 00 TO 1801 IF 6 THEN PAPER 2 
ЗЕЕ So To 1502 IF Y 21 THEN PAPER 
2158 IF h$ ‹›" " THEN GO TO 1503 PR AT 
задә 1508 IF 1 RETURN 

218 90 TO 1819 LE ar EP ‚1@ 

817 IF 9% €" " THEN GO TO 1542 GO 2 
зага 1652 РА AT ІМК 4; PAPER 
818 RETUR 1; PAPE RN 11 AND à«al; РЯ 
819 GO TO РЕВ Б Я 51 à 

зад IF a В ат? OR (a>11 AND 1592 92 64 
ax21) THE 2000 IF 2 ТЕСТТЕРІ 
381 IF à 29 THEN RARER Ё AND ь‹› IND 28 THEN GO TO З 
308 IF à 21 THEN PAPEI 922 

1 2001 IF АТТА (1,Ь) «44 THEN GO TO 
303 PRINT за 

310 ВЕЁР LET bap (INKEY 2008 LET 3554190: PRINT AT 0,15- 
$2"8" AND үү. ам Ll EE PAPER г INK MT 
5,0) AAN H Фа, К МЇ ат 5 E; ENR"; PAPER 
PEE 311 AND a<21; PA int БЕТ "!'"+1: ВЕЕР 06,16: В 
РЕВ ND » ‚55, 

SSe n TUR 5 2010 IF fr:5 THEN GO TO 2200 
1000 IF as »7 OR (a»11 AND зеде go TO 52 

acen T г 3899 PRINT RT 11,10; INK 7, BRIG 
1081 IF 9 THEN PRPER 2 HT 027 PAPER ii Pint. nitelo 
1008 IF 221 THEN PAPER 2216 FOR fue TO 3: BEBÉ ,1,2; BE 
1 652,116: 5 ЕР, 1{®, ВЕЕР 11,628 
1003 PR Ep'.i,4; ВЕЕР 4,0; NEXT f: LET 
1018 L Hr “ци 31411090 

1018 1 » $ 2816 СЕТ 38+ (1410): PRINT RT O, 
181? 00 18-LEN $TRS 4; PAPE INK 

1988 PR ij INK 4; PAPER 2838 FOR fea to Hi 

; PRPE Pii ANo a cai; PR ВЕЕР .01,f+n: МЕХТ 

kR S R o TO аф 


fin de programa. La 


Rutina de muerte de la rana. La 
linea 3010 imprime una rana in- 


Rutina de 
linea 4020 realiza un reset del ni- 


conseguido y la línea 2210 hace 
sonar una pequeña melodia e in- 
crementa la puntuación. 


Linas 3000-3040 
termitente y la 3020 imprime las 


vidas que quedan. La línea 3030 
comprueba si existen vidas. 


Línas 4000-4100 
vel de dificultad. Las líneas 4030 y 


ea 2200 im- 


Rutina que entra en funciona- 
miento cuando todas las ranas han 


prueba si se alcanzó una posición 
llegado a casa. La lin: 


correcta (un hueco) al llegar a al 
han llegado a las posiciones fina- 


les. 
prime el incremento de tiempo 


extremo superior de la pantalla. La 
línea 2001 comprueba si todas las 
posiciones llegada están llenas y la 
2010 comprueba si todas las ranas 


Líneas 2200-2220 


ión, y la li- 
menta e imprime la 


Rutina de movimiento descen- 


dente. Esanáloga a la anterior, con 
Rutina de comprobación de es- 


tos”. La línea 1050 imprime la 
tar en casa. La línea 2000 com- 


rana en la nueva posición, 


nea 1060 incre 


puntuación. 
ficación de la llegada a la parte su- 


perior de la pantalla. 


la diferencia de que no existe veri- 
Líneas 2000-2020 


Líneas 1500-1590 


aza чыч ана aza 
S ы ана ш еше ш ADA ш ана 
x 909 Y 4-9 Y 4-4 Y AA 
% 21-40 өзе O ded о 9-4 
а ооо а S4 а dd а чәе 
i A az az e 
3 $ Етіс zan Zan Zaz 
€ ә HAH а HAD «e неп а нен 
| no nH- ач - 2-0 
а чч- а мча O 49 б ч - 
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4040 actualizan la tabla de re- 
cords. Las líneas 4050 y 4080 im- 
primen el título y la tabla de re- 
cords y la línea 4090 realiza diver- 
sos BEEPS en espera de que se pre- 
sione una tecla. 
Líneas 7000- 7070 
Dibujan la pantalla i| 
Líneas 7500-7890 
Rutina de asignación del nüme- 
ro de coches, camiones, troncos y 
tortugas que aparecerán en la pan- 
talla. La variable "lev" de la línea 
7520 origina una bifurcación se- 


cial. 


gún el nivel elegido. Si desea aña- 
dir un nuevo nivel al juego, puede 
cambiar el “3” de la línea 7510 
рог “4”, Después añadir las si- 
guientes líneas: 

7900 REM LEVEL 4 

* troncos 

tortugas 
camiones 

ches 

coches de carreras 


7930 LET 
7940 LET 
7950 LET. 
7960 RETURN 

Pueden colocarse todos los ca- 
racteres que se deseen, pero las va- 
riables habrán de contener siempre 
32 caracteres. 


Líneas 8000-8500 


Rutina de definición de caracte- 
res gráficos. 


Líneas 9000-9080 

Rutina de inicio de juego. La va- 
riable del nivel de juego se iniciali- 
zará a uno. La línea 9030 imprime 
el titulo del juego en grandes ca- 
racteres y hace sonar una situación 
de inicio del juego. 


Linea 9090 
Rutina de grabación en cassette. 


38090 FOR f=0 TO 7: READ a: POKE FLASH 1;' РАЧЕ 
USA "e^*r,a; NEXT f 
3309 DATA BIN G BIN 91200012 BIN ACION 
81011010,6ІМ 011111 Ім 00111 АТ 39,2;"10 tante," 
100 BIN Oil11110,BIN @111111@,81 ¿ar 11 8i па en c 
N 00111108 asa. “¡AT 1 todas | 
8130 FOR f=0 TO 7: READ a: POKE as ñas en ES 
USA чаа, NEXT f ET PRINT RT 1 та Las 
(8148 DATA BIN 02111120,ВІМ 01011 teclas del curs UB 8002 
101,BIN O1011111,BIN 019211101, : NT RT 20 BRIGHT 
N 21211101,БІМ Q1011111,BIN 0181 1 PULSE СОН! {МУ 
1191,8ІМ 90111108 250, IP INKEYS ЕР iR 
8150 FOR Ғад e 7: RERD а: РОКЕ ND. жад: О 
USR "h^sr,a; NEXT f 9072 ВЕЕР 2 ВЕЕР 
8162 DATA BIN 11111111,8IN 11111 „1,6: ВЕЕР 4: BEEP 
111,БІМ O,BIN 11111111,81М 11111 3 
111,BIN 0,B1N 11111111,81N 11111 эф8ф с.з 
8370, РОН ғар TO 7: READ а: POKE 
oh, Fac 

3180 DATA BIN 11111111,BIN 11111 REM LEVEL T 
111,БІМ Ә2000211,8ІМ 11111111,BI 2818 г 55.7 skmm smm 
N 11111111,8ІМ 30000011, BIN 1111 Woo РИШЕ ara PEDE 
ILL BIN 11111111 pec LT EAS 
8198 FOR fsü TO 7: READ a: POKE A 
8282 Bata BIN OOlell10,BIN 01104 2988 D A 
110,BIN 91112119,БІМ 04111111,81 7670 LM LM LM 
N 04111111,61N OÍ110110,BIN 6118 Ем à 
1108,BIN 208101112 7680 JK JK K 
8210 FOR f=0 TO 7: READ à: POKE 
USR "k"+f,a; NEXT f 7590 
8220 DATA BIN 020Ә0212,8ІМ 00111 7790 2 
Ел | simil i. нен 
101g, BIN 20002000 8 ЕЯ bui, 7 AANA ARAR 
Ен ДО Len арыла ERORE 7780 LET ева" GHHI GHHI GHMI 
8240 DATA BIN Ô BIN 00111011,БІМ GHHI  GHHI y 
NEU UI EUG BBC 9н LEAN 
N а? А Фе, $ 7780 LET pon к ок JK 
3250 FOR Гай TO 7: READ а: POKE 
КНН 0 11011100, BIN 2293 REM LEVEL з 
122901800, BIN iiiiiio8 BIN 14111 7629 LET bie", AAAA 
q88,BIN 11001082,B1N 1191 i 7089 СЕТ аат", онн: GHHI онн 
3592 REM Comienz 7870 LET asa" LM LM їн LM 

"QE r n хах F 7880 LET h$z".UK JK JK Jk 

JK Ук EM P e 
E 7890 RETURN 

20 BORD 1 ER 6: CLS 
3039 PRINT AT 2,0; INK RXS, BEE 
P 11,12: FOR /яб0 TO За ТЕР -1: Detalle de los caracteres gráficos definidos para los 

BEER .Q6, f; NEXT f: PRINT RT B, ис niveles de juego. 


Алдаба, 


Según la mitología, Ariadna 
supo salir del laberinto desenrro- 
llando un hilo. De ahí el nombre 
de este programa-laberinto en el 
que dispone de dos opciones: ver 
los pasillos por los que pasa o ca- 
minar totalmente a oscuras. 

Según cl nivel de dificultad сіс- 
gido (dispone de 10) podrá acceder 
a los pasadizos. Por supuesto pue- 
de colocar cerca el esquema del la- 
berinto, pero el j juego no resultaría 
interesante. Le sugerimos entrar en 
el pasillo desconocimiento si ten- 


drá salida o tendrá que volver so- 
bre sus pasos. Con 500 movimien- 
tos, unos cinco minutos, podrá sa- 
lirsin dificultad. 

No se епрайе con los gráficos 
que le ofrecemos con el listado. La 
pantalla permanece totalmente os- 
cura, a excepción de la parte dere- 
cha donde se encuentra un reloj, 
un senalizador de movimientos in- 
correctos y un contador de movi- 
mientos. Para ajustar el reloj se ha 
de cambiar la lina 105 port =1 + 
(algo más de 6), igualmente la línea 
108. Para que la manecilla corta 
actüe como minutero, las lineas 
111 y 113 deben ser modificadas 
en /12 y /60 respectivamente. 


AAA A e rrt иет e a A с. E И НЕ 
à 150 PLOT 1x1,8y1 
into de Ariadna 151 PLOT mxi myl 
4 Mio ^ 1984 195 INK 
5 161 PLOT қау 
18 EIE 198 PLOT ОВАЈ OVE 
1 ков $ 
15 АЫ; і INK е: C 200 80 TO 100 
Ls 1000 CET 
20 GO SUB «000 1010 LET Та LET xia о 
34 GET ан 192% LET 
22 INK 7: PLOT 208,0: DRAW 47, 1030 n T yay+l 
ә: DRAW 8,175: ORAU 147,0: бағы КЕН it i T уну -1 
NE. 816,6; DRAN 7,0: DRAW 193 шті 
E Urt RESET ы j^ Le? se Рр ёт. 1645 IF b Е CET 
«24: үз A БЕТ 20 ge 
38 FOR паде TO ni STEP -1 PREN go” Мод 
3$ LET пир TRNG a 1088 88 s 5 
38 LET Print, (ANO 19 от INK 7; Х.м 
a; BRENT PAPER @;АТ à, b;CHRE 3 1 RETU 
i SO PRINT PAPER Ф)АТ a*1,b; CHRE 8995 PRINT NI; PLASH 1" Hi Tog? 
ә МЫНА aga HS ier Laberinto.": PAUSE 
se ТАК ө! PLOT 9.0; ұялы 282,2 2810 PAPER 7: BORDER 7: INK е: С 
à 2398 0,178: DRAW -207,0: DRRU EN «qoe, 
“4 ; 9; FLAS is FOR D» 
н онар CM по LH & PRINT x Ba Bii cuna за; сняв 
ЕН LET %а4Ә7: LET usog та 
79 60 TO 1 3088 INPUT ІСТЕН Jugar de nuevo 
338 LET 8030 IP pá n" THEN STOP 
1! ШЕТ 524 99 TO 10 
un 3988 EET eremua COMODO -— 
111 CET ВЕН өзі 0-14 
1180 3030 НІН NK 7; BRIGHT 1;AT 6+ 
120 ШЕТ 4 
3428 NÉXT n 
Bir 062 FOR па? TO 20: PRINT RT п,з 
h E T нн; NEXT п 
1% CET 3520 RETURN 
i i t ТГ. 4 18 REST 1 ña Т 
T RD ав: M P дуел. = 
і è { ^ 4 Н RETURN z 
48 41 605 5008 INK 9: INPUT "Nivel (1 a 10 
148 OVER ) ¿ná 


El señalizador de movimientos 
actúa cuando el pixel inmediato al 
cursor está ocupado por una pa- 
red. Hay casos en que esta pared 
no se percibe en la pantalla por ha- 
llarse frente a un pasadizo abierto 
aleatoriamente. 

Los movimientos gastados se уі- 
sualizan en un control de barras. 
En principio dispone de 1.200 mo- 
vimientos, lo que al principio re- 
sultará insuficiente. Si le parece 
excesivo puede alterar la línea 138 
por un número mayor de 120 o la 
1035 por m = m + .05 para dispo- 
ner del doble. 

El control se realiza mediante Q, 


Análisis del programa 
Linea 12 
Subrutina 9000. Gráficos defini- 


dos. 
Líneas 15-100 

Preparación de la pantalla. 
Líneas 100-200 

Bucle principal (funcionamien- 
to reloj). 
Línea 141 

Salida a subrutina del 
(movimientos, etc.). 
Línea 170 

Avance del contador de movi- 
miento de barras. 
Líneas 1000-1090 


juego 


Línea 2000 
Salida del laberinto. 


Línea 2080 
No ha logrado salir del laberin- 
to. 
Línea 2090 
Fin. 
Línea 3000 


Control de movimientos inade- 
cuados. 

Las líneas 8000 a 8061 se repi- 
ten con los caracteres gráficos sin 
definir para facilitar su introduc- 
ción. 


РЕ INKEYS. Autor: Igor Beades 16K. 
ашыға 277 IL асасы i GST TW би айыда ына 
5601 IF пі ‹Ә OR ni»18 THEN GO T ТІНЕН ва ERN ры О 
082 LET nimINT ni " ЕЕ 
ЛЕП UM Тест ей 
паб an ay Зете аоде (а orienta ЕЛЬ Е и 
ii 8 iP'inkevas РТ THEN LET (кай И р 
S099 IF ТМКЕУВ‹ "P" THEN LET tk» 11" Е 
E тыны 8 PATA Или Саг) 
E RE — еа рата UIT 2I LIU 
1888 ГЕТ sas ШИЙШЕ O ч сыйыр Е 
FH ы. 
2999 ТР sto THEN RETURN Ы рата чаъ аага 
7010 LET xiaEXP (.SaLN (r-s48))- yr ир 
1 арата Eee 
2011 LET (паха sm О 
2018 LET simX-Xi рата шаты —— 
МЫ IF +18 THEN LET insinest: n 
о UE PLOT OVER 1; INK G;x1,Vi 
2817 IF 3-3 (6 Тен 29,19 gue REO QUER 1; INK Bixi,ui 
2018 Biol $i qoa: DRAU in) RETUR 
7019 Об To 7668 REM 
2020 RETURN FOR ma te r — — — —— 
HU SAVE "Ariadna" LINE 1 
7890 STOP in 
8006 REM 
Батса == 
ВТА perse | религии 
рата ГО = 


ШЕҢ ее (бе НЫ 
им 
ИИ СИЕ = 
Г ТІП 
UN те a ES Y] 
"итп гат ты 
мы Га 
Е zs == ММ 


QUOQQ DAI 801008) EOD 4 i) pr e E 


эвв»лвхюоля 02029202525 


GPODPGGOO- OP LIDERAR OVE ӨӨӨ > OG 


| КЕ. 


9027 POKE U 
ТЕЗІ 


"(ang 
^" jmd 
R "п"+п, 186 
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5 
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P 
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5 
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Organigrama. (Por 


Er Mal S dad 
8011 DATA "ERFFFFFFFF"FCEAFFFFFF 
12 DATA "EERLCHLLLFFFOEBFCRCJR 
DATA "EEN FMENGAFF FCEEBME 
DATA "EEN_DJB_DA_FCIADEEJNO 
DATA "EEERCNFLLMHCIJBCEES F 
DATA "EEEEEERDENF, F FDEEJNC 
DATA "EEEEEBMA, DRFCERFDEBDE 
DATA "EEEEEJN LFDRDEBCH. СНО 
DATA "EEEEEBDEIAFDA CBFCERF 


ATA "EEEEERCNGNFF FFMEEJ 


DATA "EEEEEN СВЕСВ DAFDEB_ 
DATA "EEEEEBDIBFF, GEH, LFDRC 
DATA "EEEEBFFFCJJACERCERLDB 
4 DATA "EEEERCHCEBMEB. DEBHIRF 
5 DATA "EEEEEBFMBCENLFF F.FDR 
6 DATA "EEEN, FCBCEEBMHCERFFLD 
7 DATA "EEENCR.GENDJBFDEERL. L. 
DATA "EEEIB CRMNCBFLFDEEBFD 
DATA "EEBFFFDB.OBFCIRLOBFFF 
DATA "EBFFFFFFLFFCNLMBFFFFF 


DATA "BFFFFFFF FGIB DHFPFFF 
EA OVER 1; INK 0;x1,y1 
OT OVER 1; INK B;xi1,y1 
¿TURN 


Lineas de caracteres gráficos definidos. 


ULTIMO AVISO 


¿Eres aficionado a la programación? 
¿Dominas el código máquina? 
¿Tienes programas originales? 
¿Puedes escribir un buen juego? 
¿Quieres ganar dólares, libras, francos o 
pesetas desde tu casa, en tus horas libres? 


iNO TE LO PIERDAS! 


Contacta inmeditamente con: 


CIBERCOMP, 5. A. 
Tels. (91) 200 21 00 
(91) 759 22 44 


ATENCION 
Nuevo Servicio Reparaciones 


Ampliamos tu Spectrum 
Componentes Electrónicos. 


PLALEN ELECTRONIK 


C/ Antonio López, 115. 
Tels. 469 17 08 - 475 40 96 


¡SOMOS ESPECIALISTAS! 


* Ordenadores personales Hard y Soft. 


* Cursos de Basic. 


RENOVACION EN MARCHA, S.A 
2° int - MADRID-3 


44124 78 
REM SHOP 1 
4- MADAID-15 


(91) 445 28 08 


para Home Computers 
rimeras firmas internacionales, 


FACTURACION SPECTRUM 


Contabilidad опса: 12.000 ptas. 
Equipo de gestión: Spectrum. 
impres grand 


ANUNCIESE | MADRID 


(91)73396 62 
por BARCELONA 


ALSI, $. А. A 
Tel. 91/4 


onio López, 154. 
26 MADRID 


MULTISYSTEM, S. A. 


шей BOUTIQUE INFORNATICA 
* Ordenadores Personales 


Micro-ordenadores de gestión 
Todas las novedades en: 
Programas. - Poriféricos - libros 
nacionales y de imp: ión) 
Para: Spectrum - Dragón - Base 64 
Spectravideo - Oric - Commodore, etc. 
С/ San Vicente, 63. ALICANTE. Tol. (065) 21 55 66. 


MODULOS (93) 3014700 


2 
Гар Ган пш am | | ESPECIALISTAS EN SINCLAIR 2 
SAQUELE RENTABILIDAD AL SPECTRUM О 5 
- тн 

С à PROGRAMAS EN MICRODRIVE ZX PROGRAMAS EN CASSETTES 22 | 
A E EDUCATIVOS: ex 

Z а Contabilidad (P.N.C.) 12000 pts * 2 
BZ Based 6.000 Geografía 1 1.800 рі 2m 
e райо!) 6.500 Geografía 11 1800 С” зо 
не hoja electrónic 4.000 cepe 1300 бе 
Z ^ Control de s + facturación ^ 6000 Matemáticas | 2.000 z9 
шы P ESPECIFICOS. Matemáticas 11 2.000 Zw 
м = Agente de Bosa” 6.500 Curso de Contabilidad 1 2200 oz 
© Z Administradores de Fincas 10.000 Curso de Contabilidad II 2200 mc 
> О  wediciones y pres s 19.500 jperdesarrollos 1X2 3900 p 
E Я Tambien disponibles ei SS (imprime boletos con Impresora Admate) = 
Ф Ф ORDENADORES: Spectrum, Spectravideo, Commodore, Amstrad, Oric, Katson... desde 1.239 ptas. al mes. $ 8 
2 IMPRESORAS: Star, New Print, Seikosha desde 774 ptas. al mes. Monitores. Accesorios. “ж 
= СІМТА VIRGEN ESPECIAL ORDENADOR С-15... 125 plas. (pedido minimo 5) т 
45 ENVIOS CONTRA REEMBOLSO, GIRO О TALON CONFORMADO e 
NS C/ Silva, 5-4.°. Tel. 242 24 71 - 28013 MADRID v 


——————————————— M 


Ha seleccionado para usted cuatro excelentes programas de juego para su ordenador SPECTRUM. 


Diviértase con ellos y, además, ahorre dinero con esta oferta única y exclusiva para los 


lectores de esta revista. 


RACING MANAGER. 


juicio. 
Precio: 1.550 ptas. 


| DR, FRANKY 


Solitario, en las mazmorras 
encantadas y oscuras de su castillo, 
el Dr. Franky intenta 
desesperadamente convertir ol 

| monstruo que él Ва inventado 
еп ип ser humano. Parece simple, 
pero no lo es. Se trata de encontrar. 
los frascos que contienen los 
productos químicos que dan la vida. 
Y no debes olvidar la fuerza de 10 
sobrenatural. Las gentes que han 
sido transformadas en monstruo 
quieren vengarse. 

Precio: 1.550 ptas. 


4) 


Recorte y envíe este cupón HOY MISMO 


de estos cassettes a su precio 
individual de 1.550 Ptas. 
Pero también puede adquirir el 
lote de 4 por sólo 4.650 Ptas. 
y AHORRARSE 1580 Ptas, 
О sca, cuatro cassettes por el 
precio de tres. Aproveche esii 


[ 
| 
| 
| 
| 
Usted puede comprar cualquiera 1 
| 
| 
| 
| 
| 


estamos en la nueva temporada de 
carreras, Sólo piensas en el derby 
Diriges una cuadra de caballos, 
debes entrenarlos para el gran 

día. Compra y vende caballo: 
necesario, pero cuando llegue la 
carrera trate de dominar tu tensión. 
En los ültimos 200 metros 
descubrirás sí has hecho bien tu 
trabajo. El ordenador te ayudará, 
pero todo dependerá de tu buen. 


¡QUETZ ACOATL 


Tres meses buscando el Tempolo 
templo de Quetzacoall para acabar 
atrapado en él. Tus compañeros han 
sido asesinados, Tu única manera 
de salir es atravesando la red de 
pasadizos secretos construídos por 
los aztecas. Pero ¡atención! no 
incurras en 1 provoques la 
veganza de los dioses. Puedes 
consultar tu mapa, pero cada vez 
que lo haces se desintegra y debes 
comenzar de nuevo tu desesperada 
búsqueda de salidas. Buena suerte 
Precio 1.550 ptas. 


si es 


SORGERY 


La Tierra ha caído en el 
oscurantismo. Nigromante y sus 
demoniacos sirvientes la han 
conquistado, esclavizando a los 
humanos. Tú eres el último de los 
brujos de otra época y debes 

viajar a Stonchenge para 

rescatar a otros tres brujos, a 
quienes necesitas para vencer a 
Nigromante. Se agota tu tiempo 
¿Podrá salvarlos antes de que se 
hayan convertido en piedra? ¿Antes 
que la Tierra se hunda eternamente? 
Precio: 1.550 ptas. 


E Es 


INFODIS, S.A. | 
Bravo Murillo, 377-5.9-А | 
28020 MADRID 


Envienme a mi domicilio, al precio de 1.550 Ptas, cada una, más 95 Ptas, de gastos, la cassette c 
cassettes que le indico a continuación marcando con una (X) en el casillero correspondiente. 
Queda bien entendido que pidiendo las 4 cassettes obtengo un ahorro de 1.550 Ptas.. lo que me 
supone UNA CASSETTE GRATIS (Sólo pagaré 4.650 Ptas. más 95 Ptas. por gastos de envio). 


[ RACING MANAGER QUETZACOATL DR.FRANKY [] SORCERY 
C] Las 4 cassettes, en las ventajosas condiciones de AHORRO para mi (4:650 Ptas.) 


El importe lo abonaré: 
POR CHEQUE L] CONTRA REEMBOLSO Г1 CON TARJETA DE CREDITO (7 


American Express [ Visa Г] Interbank С) Fecha de caducidad 


TE 


Número de mi Tarjeta | 


Nombre 


Dirección 


Ciudad ЮР. 


Provincia 
Cada envío llevará 95 Ptas. en concepto de gastos. 


del boxeador 


que no q 


En el número 2 de la revista, dos 
lectores escriben con la misma 
pega: no pueden controlar al bo- 
xeador del programa Boxeo. Una 
verdadera lástima, porque el juego 
es bastante bueno. Sin embargo el 
listado del programa es correcto, 
¿qué ocurre entonces? Pues que, 
como queda dicho en el artículo 
"Sintonice bien su Spectrum”, pu- 
blicado en el número | de TO- 
DOSPECTRUM, existen tres ver- 
siones del ordenador. Esto es ver- 
dad....a medias. En realidad son 
cuatro: la versión 1, no comerciali- 
zada en España. y las versiones 2, 3 
y 3B. 

El software comercial trabaja 
igual en todas ellas, pero hay una 
curiosa diferencia. La función IN 
es distinta en la versión 3. Para 
comprobarlo no hay más que ha- 
cer PRINT IN 63486, si nuestro 
Spectrum es versión 2 9 ЗВ obten- 
dremos el valor 255, mientras que 


si fuera de la versión 3 obtendría- 
mos el valor 191 

¿Cuál es la explicación? Para en- 
tenderla abandonemos por un mo- 
mento el sistema de numeración 
decimal y pasemos al binario. Al 
leer una semifila del teclado con la 
función IN (ver el capitulo 23 del 
manual) obtendremos un byte, 
formado como sabéis por 8 bits. 
Los 5 bits primeros de la derecha, 
es decir, del DO al D4, correspon- 
den a las 5 teclas de esa semifila: 
D4 | correspondiente а la tecla 
más próxima a la parte central del 
teclado. y DO el correspondiente a 
la tecla más externa. Estos bits to- 
man el valor 0 si la tecla está pul- 
sada y el 1 si no lo está. 

Hasta aquí todo es igual para to- 
das las versiones. Pero ahora viene 
la diferencia: 

Los tres bits restantes, esto es 
05, 06 y D7, no corresponden a 
ninguna tecla. Pero mientras que 


BIEN HECHO- 


togo IF IN 64510=190 THEN GO SUB 
doch IN 573422190 THEN GO SUB 
450 i5 ЕЕЕ THEN IF RND>sk THE 
5099 LIN 6143832178 AND y 

4 83 AND 


N. GO 


841 


$143 
T х=х+ 
8345 


› 
(т! 81433187 AND x 
52175 AND x>7) 


uería pelear 


en las versiones 2 y 3B siempre va- 
len 1, en la versión 3 el bit D6 vale 
0. 

Resumiendo, para el que no sea 
amigo de complicarse la vida: 
comprobad si vuestro Spectrum es 
de la versión 3 mediante PRINT 
IN 63486. Si el número obtenido 
es el 255, es de cualquiera de las 
otras versiones, mientras que si es 
el 191 es de la versión 3. Para que 
el programa de Boxeo funcione en 
esta versión, habrá que cambiar las 
lineas 400, 410, 500 y 510 de la si- 
guiente forma: 


400 IF IN 64510=190 
THEN GO SL В 1000 

410 IF IN 57342 = 190 
THEN GO SUB 1100 

500 LET y = y HIN 61438 = 175 
AND y « 17)- (IN 61438 
=183 AND y > 2) 

510 LET x =x HIN 61438 = 187 
AND x < 22) - (IN 63486 
= 175 ANDx > 7) 


к.о. 


Como veis, lo ünico que hemos 
hecho es restar 64 en todos los va- 
lores de la función IN, que en el 
listado anterior eran respectiva- 
mente 254, 254, 239, 247, 251 y 
239. 


Con este simple cambio el po- 
seedor de un Spectrum versión 3 
verá a su boxeador perder la timi- 
dez, moviéndose por todo el ring y 
sacudiendo a puñetazos а su rival. 


Finalmente, dar las gracias a 
José Ibáüez, José Salvia, Josep 
Marcos y Agustín Froufe, quiénes 
astutamente se percataron del pro- 
blema y nos escribieron simpáticas 
cartas. 


Enrique Fernández 


PSYTRON 


NUMERO 1 EN INGLATERRA 
Los mejores огай опѕедшс 


рага el SPECTRUM 48-K 


SOFTWARE 
ESPECIALISTAS EN VENTA POR CORREO 


OFERTA GESTION 


JE DATOS 3.000 
K 3.000 
E TEXTOS... 4 


ontrole una base lunar co 
Controle tura basan ca OFERTA 1 

SPECTRUM 48 К 41.900 
ег ordenador р it 15.000 
tolal visión de las 10 zonas de la base PET 
Sólo su inteligencia y sus reflejos le 


conducirán a la victoria 
PRECIO ESPECIAL IVESON 


орогбюпа una 


56.90 


PRECIO IVESON 40.000 


1.800 pts. sin gastos de envio 


PRECIOS ESPECIALES EN 
PSYTRON PARA COMERCIOS 


OFERTA 2 


CUALQUIER CINTA DE SOFTWARE 
QUE ESTE EN EL MERCADO,IVESON 
SE LA OFRECE CON UN 15% DE 


DESCUENTO PRECIO IVESON 


OFERTA 3 


PRECIO IVESON 


TODOS NUESTROS EQUIPOS 
SINCLAIR TIENEN 


PRECIO ІУЕ50М 1 AÑO DE GARANTIA 


TODOS NUESTROS PROGRAMAS 
OFERTA 4 SON ORIGINALES 
SORA GP-50-5 


ESADOR DE ТЕ PIDA INFORMACION 


DE NUESTRO SOFTWARE-CLUB 
adjun e 
1 dire 


PRECIO IVESON 27.300 


NECESITAMOS PROGRAMADORES 
BASIC Y C/M PARA SPECT 
ito adjuntan 


Dirigirse por e: istorial y 


Enviar a IVESON RIERA DE TENA,15 Tda. 4 (pasaje) 
08014 BARCELONA — Tel. 249 31 96 


TIDAD PRODUCTO pu 


NUESTRAS CONDICIONES DE PAGO 


е г rapidez 
егепсіз ban п е de IVESON 
Barcelona BORDETA. c/. Badal 
o. Enviando el 50% del importe р 


ayor rapidez de envío le rogamos hagan sus pedido 


GASTOS DE ENVIO 
TOTAL 


DP. Provincia 
Giro pasta! Talón nominativo. 


Heoqumas 


Simulador 1 $09109 


Llegó la hora de probar sus со- 
nocimientos sobre electrónica, en 
aquello que los *entendidos" Па- 
man las "puertas lógicas". El tema 
єз bastante didáctico pero sin dejar 
de ser divertido... ique de eso se 
trata! 

El programa ilustra el funciona- 
miento de las puertas lógicas bási- 
cas, en las que se inspira toda la 
tecnología actual, incluso la de 
nuestro Spectrum. Y es precisa- 
mente él, quien nos explica cómo 


se comportan estas puertas ante la 
información de "ceros y unos" 
(tensión o no tensión) que aplica- 
mos a las entradas, dependiendo 
de los valores de éstas y del tipo de 
puerta obtendremos un determina- 
do valor a la salida. Seguidamente 
aparecerá el esquema eléctrico 
equivalente a la función lógica en 
forma de interruptores, resisten- 
cias y lámparas, incluyéndose el 
esquema del símbolo electrónico 
que representa a la puerta con los 


valores en sus entradas y en la sali- 
da. En el esquema se representan 
las entradas como interruptores, 
siendo “Ø” cuando están abiertos 
y “1” cuando están cerrados. Los 
signos + y — representan a los polos 
de la pila, las resistencias son re- 
presentadas por unos rectángulos. 
Seguidamente el ordenador pedirá 
que introduzcamos los valores que 
queramos tener en las entradas 
dándonos el valor de la salida. 


Autor: Juan Bautista Pérez — 48K. 


ig REM JUAN B.PEREZ LOPEZ 328 BO SUB 2210 
ZA TNE a. D папке n 520 REM elec 
VER o: RIGHT O SELASA M 
En BEP iN 55 S40 LET а=РЕЕК 23580 
2299 65 4297 THEN 60 TO 
Е ЕТ у= <“ 6 Ж 
tel n A ЕЕ IF а=56 ОБ &=95 THEN 50 TO 
E T а= T ET у=8 055 
rai a UU Tn 2429 IF а-87 OR a-99 THEN 60 TO 
8,4445 9,9,8,3,8,9,9,3, 127,12 зва IF а=65 OR a=100 THEN GO ТО 
? z 26 
ETH м 388 IF a=59 OR a=101 THEN 90 TO 
т 5 
212526 126 128,4,4,125,126 298 IF а=70 OR a-182 THEN 60 TO 
484,У9,У 3 
Я 3 818 PRINT BT 11,4;"P я 
о i 85,4,4,4, ,8,6, Е": BEER 2,0 2 
R 4,4,4 225 PRINT AT 11,4.4$( TO 
о 1 ӛң "8" +87 430 GO TO 220 у 
а: РОКЕ п, т 420 БЕН INVERSOR 
p ee ЕЗ 480 REM dibujar esquema 
229 РЕШ PUERTA TIPO 
7 я 8 " mA 
PRINT RT 1,8; INUE| 2 
150 PLOT 63,158 199 5 Tu 
170 PLOT 63,155 500 194 МЕНТІ: PL 
180 PLOT 18,144: от 619 PEAT i94 ree ELoT 195 
Е T. ‚ва: ù 
АЕ nde 510 Р DRAY -24,-16 
800 БОТ 13,148: DRAW 2 DRAI a 82245 І 
2 A - E EI 7 
RAD. е 530 P pos PLOT 
22 33,10 ¡RE 
п бай P DRAW 37,0: DRA 
230 оа, -18 д a 
240 “556 P DRAW @,-12: DR 
558 RU -57 
Ее ,S88 PRINT ат i ЛЫ M AT аа, 
BT 11 ains 
PEE 590 PRINT HT 11,10; "s";RT 11,14 
HT 17 dem 
!*"OR EXCLUSIVAS 500 REM control inver 


310 PAUSE Y 


No se caliente la “CABEZA” 
EIKOSH 


IMPRESORAS 


ESTOS SON NUESTROS MODELOS: 
Nuestra calidad es "SEIKO"; 


nuestros precios, ünicos. Tipos de 
Si desea más información, Modelo Velocidad Columnas letra Interface P. V.P. 
consulte con nuestro distribuidor 
más cercano, o llame o escriba а: | ОР-50 40 срз' 46 2  |A-Paralelo A-25.900 
AS-Serial AS-28.900 
S-Spectrum 5-28.900 
GP-500 50 cps 80 2 |a-Paralelo А-47.900 
j AS-Serial AS-49.900 
GP-550 86 cps 80-136 18  |A-Paralelo А-59.900 
Dirección n 
А. Blase НВ GP-700 50 cps 80-106 з  |A-Paralelo A-89.900 
46022-Valencia, 
Tel. (96) 372 8 89, BP-5200 | 200 cps 136-272 18 [Paralelo y serial 199.000 
Télex 62220 = 
s BP-5420 420 cps 186-272 18  Paraleo y serial 299.000 
Delegación en Cataluña: IBM РС 1:299.000 
C/ Митапег, 60, 4, 1. 


08011-Barcolona Disponemos de interfaces opcionales para todos los modelos: ІВМ PC, COMMODORE 64, ZX | 
Tel. (93) 323 32 19. SPECTRUM, ATARI, DRAGON 64, SHRAP MZ 700, SPECTRAVIDEO, NEW BRAIN, APPLE, ETC. 


"Hequuas ee 


510 ol HI 821% 


de 1/9 НЕО" 


5 
D 
HH 


A 

I 
а: 
i 
0 І 
13 


GALOZrrzZao 
ug © 
1 
= 


ВЕМ 
5860 REM dibujar esquema 


¿AT 11,19 
Ru @,-з@ D 
R DRAW -10, 
o 
720 І 
12,3; M 
LERT: т 
732 9 
ug, i 
.740 E 
2; "5 
250 I 
TB, 
250 RE 
279 PRI Puls 
de Я 1/0 iMzmenulj": PAUSE Y 
789 PRINT AT 10,27;" “¡AT 11,17 
та E INKEYSz'"m" ОВ ed e 
Т 5 2210: 50 ТО 15 
5 Е NKEY $ 
El E 71% AND a$<>"0" THEN 
5 
в PRINT BT 8,17 
¡a а=@ TREN? бат? RT 8,7; "^^ 


50 қағы 054 . 
2 PRINT BT 8,7% 

БЕЕР .2,20 

PRINT AT 21,1;" pulsa valor 
1/0 "i PAUSE Y 


МКЕҮ% 
1" AND b3<>"0" THEN 


wo 
5-1 
4 


DUD- HA гтонго 


b$: PRINT RT 12, 
ЕМ PRINT HT 5,10; 


8, ipren 


PRINT RT 10, 


e 


m * 
AED ID біш ^J iD CO 


ЕР .2,15 

$zü THEN PRINT INK АТ 
“; GO TO 0940 

INK SAT 10,13; "$" 
3; 09559 0788 


m 
© 


Med Me- O mc 
GGGP6Sv"&G 


3560 REM 
970 REM dibujar esquena 


250 GO SUB 2178 
398, ИЕ RD 9,19; " “ВТ 11,19 


1958 ЕШ. 5424 1057 DRAW Q,-30,-1 
+5; ¿DRA 18,8; DRAU 0,50,3: DRAW 


-10, 
АГ PRINT BT 8,19; "А";АТ 13,19; 


1020 P тетт AT 7,9; "a";RT 11,9;"b 
1030 PRINT AT 5,3," Mujer 
710; W';RT 10,15. AT 12,9;" 


1030 PLOT_39, тав: DRAW 58,9: DRA 
2,-35: DRRU 
12% PLOT 75, 138; 'DRRU ә :-26: DR 


НЫ 15,0: САШ 


585° РБІМТ АТ 841 8; "PUERTA TIPO 
1070>REM contr 


1050 PRINT AT 21,1 
de Я 1/02 iMzmenui 
1290 PRINT RT 10,27 


1100 ТЕ INKEYSs'"n" DR TREET SEON 
THEN 50 SUB 2210: 50 ТО 

1110 LET a$=INKEY$ 

1120 IF a$<>"1" AND a$i»"O0" THEN 


а%: PRINT AT 9,1 
VEN PRINT RT 8,10; M. 


PUEDO DECIR LO 
QUE Rd DEL 


ÁYAVONISTE A LEER ALGÚN 
(Чо PORNOGRÁFico 


SOBRE сбофо MÁQUINA! 


50 ТО 1158 _ «е О IF $20 THEN PRINT INK 1;RT 


49 8,1@; "e 18,10;" 50 ТО 1550 
ва B 2,25 1540 PRINT INK 5;АТ 10,10; €" 
ea P АТ B1,1;" pulsa valor 550 PAUSE 3: 60 TO 1350 
= в ': PAUSE à 1550 REM Puerta NOR 
79 L И, Т о ее 
а І "1" AND 5%%272” THEN 
TO 1570 REM 
aL HL 5%: PRINT АТ 11,1 1550 REM dibujar esquema 
І ЕЕ В A M Ere ала EE 
2 2% 210 
à Р 
© Е "ат 11,19 
ðL 
DRAY 04-39, 1 
9 IF 5-9 THEN PRINT INK 1;RT ШЕРТ 0,30,3: DRRU 
is gü TO 1250 
O PRINT INK S;BT 10,13; 4" ¿ERINT BT. 4% їй UD 19. = 
50 PHÜSE 3: 60 ТО 1088 T 
ð arta OVER 1: 
PLOT 155 
a";HT 11,10; 
ujar esquema 
DRRH 63, 
Bl PLOT 
PLUt За, Таз: 
НАБ С) 
+", АТ 8.5; E 
194,88,2: OVER 1: PL 10,13; M"; AT 
PLOT 184,88: PLOT 195 Lu 


"PUERTR TIPO 
DRAW 9,-38: D 
30,59: DRAW -10, NOR 


"A "¡AT 13,19; 
45204 pest reb 21,1," pulsa valor 
ЭРЕН 55,0; DRA zmenu)": PRUSE Y 
pi 5 PLOT 54,103 12да" вет т 10,27," "¡AT 11,17 
-32 
T AT 17109 ТЕ ІМКЕҮ% MKEY$z"h" 
EN a 5 > o 150 
I i 
T Ят "0" THEN 


G 8917 
1748 ГЕТ VAL a$: PRINT HT 9,17 
: IF а-2 THEN PRINT HT 10,9;"2 


30 TO 1760 


а 


1758 PRINT АТ 10,9; “1" 
21,1)" pulsa valor 1760 Б 
ат таепи о, ¿PAUSE @ 1778 РБ 
135 a RAINT ат аот ОНТ 11,17 dè B 1 
1750 LE А 
1400 IF INREYE= OR INKEYS="M 1738 IF АМО b$<>"0" THEN 
THEN 50 SUB 2210: 50 TO 150 20 TÚ 
1410 LET аў= INKEYS А 1500 LE ; PRINT АТ 11,1 
1420 IF a$i»"l" AND ag<>"0" THEN ВЕЕ PRINT AT 10,14; 
60 TO 1419 ^ neu GO 
143@ LET AL a$: PRINT HT 8,17 1510 PRI 
a: IF THEN PRINT HT 8,12;"" 1520 BEE 
о 458 1830 LET ОТ ia OR bi: PRINT A 
slg; "H" T 18,27; 
184@ IF HEN PRINT INK 15AT 
10,13; "$ 
1550 PRIN 
186@ PRU 
1870 REM 


BL b$: РБІМТ HT 11,1 
THEN PRINT HT 12, 12; REM 


1550 

1390 REM dibujar esquema 
29 
19 


о P 
151 10 БЕЕР 8 n 16 5 
152@ LET ОТ із RND b): PRINT 15 
HT 10,27;3 1 


50 SUB 2170 2 
PRINT AT 9,19; — RT 11,19 


206" EH 


CRAN 
ð, -50 


ze 
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"¡AT 13,19; 
BT 12,1! 
АТ 


PUERTA ТТРО 


PRINT AT 21,1; 
(H=me m1. 
NT RT 10 


Р valor 
PAUSE e 


INKEY $z"M'" 
TO 154 


PUERTA TIPO 


AR 


EXCLUSIVA 


pulsa 
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MULA 


dè A 


DOR L 


1.0 ї(М=тйепш 


GI 


PUERTA TIPO NOR 


simbolo 


pulsa 


valor 


de A 


1/0 iMzmenu) 


ны 63,0: DRA 
PLOT 50,108 
BEAT 50,75: ОКАН 4 


13,4," 


AA 


ET а jd 
BEER AND a$i»"à" THEN 
ET a=UAL a$: PRINT RT Y, 
828 THEN PRINT RT 13,7; 
то 2060 
RINT AT 
EEP .2, 
"RINT RT valor 
1/0 
ЕШ I 
58 г ТНЕМ 
ЕТ HL 5%: PRINT RT 11,1 
Р b THEN PRINT RT 13.15 
D TO 2120 
RENE T 13,13;"]" 
5 ÜR b) Шш, МОТ (а 
» я 
o IF EN 
‚1 “ДО тд 
© PRINT INK 5; 
Y PAUSE 3: 60 
70 REM PRINT P 
Y PLOUT 127,12 
à PRINT AT 5,5; 
19; "simbolo" 
200 u 
ð сга 
@ з” 
=4 TO 18 
.Oüb,nia: NEXT n 
ВТ 21,8; а$+"” ": RETUR 


SIMULADOR LOGICO 


Esquema simbolo 


PUERTA TIPO NAND 


pulsa valor de Я 1/0 (Mzmenu) 


GRAFICOS 
RBCDEFGHIUJK 
E-anuueznris- 
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APR 
ENDA Y DIVIERTASE UN MES ENTERO 


NO PIE 
RDA TIEMPO TECIEANDO PROGRAMAS 


ndo hablar a SU ordenador 


до su pericia Y destre 
gar a la base galáctica 


copio MORSE 


Para aprender morse fácimei 


Conviértase en UN gran campeón de golf 


ma que le permitirá 
isplay publicitario 


televisor como di 


Y mucho más 


Un progra 
utilizar su 


[y а, la uenta 
дал. 
proveedor habi 
у = 
ОДМ: 
2802 


envian TY 
doel cupón que encontrará 
n esta revista d 


SOFTWARE PROFESIONAL 
PARA ZX-SPECTRUM 


MENU 


IMPRESION N. 
-2- COD. Impresion 
-S-  INTERFRCE 

CHR$ Graficos 
МЕМОВТЯ EXTERNR 


OR 
-9- Сашь.еп INFO 
-0-  IMPR.con FICHA 


CONTEXT V.6 (*) — Procesador de textos 64 
columnas. Caracteres espafioles. Cartas per- 
sonalizadas. ¡Sensacional! 

P.V.P. 4.000, — Ptas. 
CONTABILIDAD PERSONAL (*) — Contabi- 
lidad doméstica o de pequeño negocio. 64 co- 
lumnas. P.V.P. 2.500,— Ptas. 
HISOF PASCAL.— El único compilador de 


Pascal creado para el Spectrum. 
P.V.P. 3.500,— Ptas. 


Pruel 
9 fii 


© DEFINIR FORMATO FICERS 


9 LISTAR INFORUACION PAGIONOA IMPRESORA 
© SAUE PRIGR.+ ARCHIVO 
SAVE 5000 RRCKIUD 


ba Прегастой: 
chas Seleccionadas: LI 


SITI (*) — Sistema integrado de tratamiento 
de información. Base de datos con posibili- 
dad de cálculos complejos y ficheros 
auxiliares. P.V.P. 4.000. — PTAS. 
BETA BASIC.— Más de 50 nuevos coman- 
dos de Basic para tu Spectrum. 

P V.P. 3.000, — PTAS. 
HISOF DEVPAC (*). — Conjunto de dos pro- 
gramas, ensamblador y desensamblador de | 
código máquina. Impresionantes. (GENS 3M2 
y MONS 3M2). P. V.P. 3.500, — PTAS. 


CYRUS IS CHESS — El mejor ajedrez. 
Campeón de Europa de 1981. 


* Compatible con Microdive y/o cassette 
y cualquier impresora e interface de 
impresora 


P.V.P. 3.000, — PTAS. 


GRAFPAD 


Los mejores dibujos realizados 
cómodamente. Trabaja hasta 
3 pantallas a la vez. Incluye 
programa de funcionamiento y manual 
completo en castellano. 


TIENDA: 

C/. Córcega, 89 - Entlo. 
08029-BARCELONA 
Tel. (91) 230 97 90 


TABLETA DIGITALIZADORA PROFESIONAL 
PARA ZX-SPECTRUM 48 K. 


VENTAMATIC ЕЗ 


PEDIDOS POR CORREO: 
Avda. de Rhode, 253 
ROSAS (GERONA) 

Tel. (972) 25 56 16 


0 


г La Вела, 


Con este programa podrá jugar 
tranquilamente a “Та Bolsa" y de- 
cimos tranquilamente porque no 
perderá grandes sumas de dinero y, 
por supuesto, no será necesario 
que se lance por la ventana si no 
tuvo suerte. 

El juego tiene cuatro niveles de 
dificultad, lo que determina cuán- 
tas acciones cambiarán de valor 
independientemente de la infor- 
mación que se da a los jugadores. 
Dependiendo del nümero de juga- 
dores, deberá elegir su nivel cuida- 
dosamente. Así, por ejemplo, si 
juega solo le aconsejamos que elija 
el nivel 4; para dos es conveniente 
el nivel 3; con tres es mejor el nivel 
2; y para cuatro o más jugadores es 
aconsejable el nivel 1. 

En el mercado existen siete com- 
pañías en las que podrá invertir о 
especular, especialmente con los 


$ : KU rumores de que le informa el orde- 
Wa ES nador. Las acciones de Akran, Bel- 
\ Y so, Cobra y Dobro no fluctúan de- 


< masiado, mientras que las de Elsa 
y Finet presentan oscilaciones 
mayores. Con las acciones de la 
Compañía Bchip será difícil que 
pierda dinero, pero más dificil aún 
será que se convierta en un Rocke- 
feller. 

Апітпеве y ponga en juego algo 


más que su imaginación. 

TES Heyg- 
e BRT % ә ERBE 1: "9с 
K By ba, 5“ p Ж” Бо? 
APR afia TO 15 UPS 247 PRINT 

o Sub 81 53, TET PE 
шы BAIN übt M eui ¿go б 
es 795: 0 46 м" 
AYERS SUAL 4$ ХТА. 

4152.88 1% cipal, a 


UN AMIGO 


Que sepa mucho de ordenadores. 
Que esté dispuesto a jugar y a enseñarnos. 


Ya puedes encontrarlo, a partir de noviembre, 
en todos los quioscos, 


Se Ната бір-бір Y te dará 116 páginas de juegos, 
programas, diccionario de informática, 


comics, aventuras y todo para tu ordenador. Quiérelo. 


Recuerda: 


“el amigo de tu ordenador? 
Una revista-libro diferente, para 


los nuevos genios de la informática. 
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